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A  BSIBACT 

Two  batch  air  defense  programs  named  PDQ1  and  MICE  reside  on 
the  Naval  Postgraduate  School  IBM  3033  computer.  The 

programs  compute  the  probability  of  kill  of  an  aircraft  bv  -  ... 

.  ,  •  < 

aexcnsive  weapons.  Data  is  red  to  the  programs  by  an  inter¬ 
active  pre-processing  program  named  I3MPIP.  Improvements  to 
IBMPIP  are  proposed  to  enhance  existing  capabilities  or 
provide  new  capabilities.  Areas  addressed  are: 

•  « 

•  introduction  of  user  friendliness 

•  enhancement  of  graphics  capabilities 

•  improvement  in  the  accuracy  of  results  ^ 

•  a  suggested  philosopny  for  evolutionary  improvements 


•  4 
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I.  HISTORY  AND  INTRODUCTION 


There  are  two  batch  processor  air  defease  simulation 
programs  implemented  at  Naval  Postgraduate  School.  These 
programs  take  a  user-defined  aircraft  flight  path,  compare 
it  to  various  defensive  positions  and  return  the  probability 
of  having  killed  the  aircraft.  The  first  program  is  the  Air 
Force  Armament  Laboratory' s  Anti-Aircraft  Artillery  (AAA) 
Simulation.  Its  shorthand  name  is  P001.  The  second  program 
is  the  Air  Force  ASD  surface-to-air  missie  (SAM)  engagement 
simulation.  Its  shorthand  name  is  MICE  II.  The  programs 
satisfy  MIL-STD-2069  and  are  used  in  industry  as  a  design 
aid. 

A  drawback  to  these  programs  is  the  fact  that  the  amount 
of  input  data  submitted  to  the  programs  is  large  and  the 
format  requirements  are  rigid.  The  process  of  direct  submis¬ 
sion  of  data  to  the  programs,  is  therefore  time  consuming 
and  tedious.  Humans  are  inefficient  at  performing  time 
consuming,  tedius  tasks  and  errors  are  a  result. 

A  first  step  improvement  in  the  method  of  inputting  data 
to  P001  occured  in  1S78.  A  pre-processing  program  named  P001 
Input  Processor,  or  PIP  for  short,  was  created.  Like  the 
processors,  PIP  was  a  batch  program.  However,  input 
requirements  were  reduced  to  just  spatial  coordinates  of 
flightpath  milestones,  an  initial  speed,  and  control  indica¬ 
tors  for  the  type  of  output  desired. 

PIP  had  its  shortcomings,  too.  Because  of  the  batch 
implementation,  the  entire  flightpath  of  milestones  had  to 
be  submitted  as  a  unit.  The  user  learned  of  violations  of 
aircraft  structural/performance  limitations  and  mission 
rules  by  experiencing  failed  runs.  Corrections  consisted  of 
repeated  tinkering  with  the  milestones  until  a  successful 
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run  emerged.  A  further  drawback  to  PIP  is  the  requirement 
for  the  user  to  plot  the  desired  route,  pick  off 
data  and  then  get.  the  numeric  data  into  FORTRAN  format. 

The  next  generation  imp rovemeut  was  introduced  at  Naval 
Postgraduate  School  in  1932  ny  It.  Eric  a.  Johns. 
Recognizing  the  inherent  limitations  of  a  batch  processor, 
Johns  converted  PIP  into  an  interactive  program  suitaole  for 
use  on  time  shared  computer  systems.  In  so  doing,  he  real¬ 
ized  the  following  benefits: 

1.  The  user  could  be  notified  "immediately"  of  a  milestone 
entry  that  violated  predefined  aircraft  structural  or 
performance  limitations. 

2.  The  user  could  he  given  the  opportunity  of  making  a 
correction  before  proceeding. 

3.  An  interactive  graphics  capability  could  be  introduced 
which  eliminated  the  necessity  of  manually  converting 
and  coding  data  from  a  map  into  the  computer. 

As  a  secondary  effort,  transportability  through  modular 
programming  was  introduced  to  permit  easy  dissemination  of 
the  pre-processor  to  interested  government  agencies  and 
industries.  The  version  in  use  on  the  Naval  Postgraduate 
School  ISM  3033  computer  is  named  IBMPIP. 

While  acknowledging  the  importance  of  I3MPIP  as  a  great 
evolutionary  step  forward  in  the  convenient  use  of  P001  and 
MICE,  it  quickly  became  apparent  that  still  more  improve¬ 
ments  could  be  realized,  which  would  increase  the  conven¬ 
ience  of  the  data  generating  aspect,  improve  the  accuracy  of 
the  results  from  P001  and  MICE  and  broaden  the  capabilities 
of  the  I3MPIP-P00 1/MICS  combination  in  two  areas:  design 
decision  making  and  tactics.  The  purpose  of  this  thesis  is 
to  make  some  of  those  improvements. 
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Rather  than  rename  I3MPIP,  tais  thesis  proposes  ir. 
improved  version  ox  I3MPIP  by  installation  of  specific 
modules  which  are  to  te  discussed.  Physically,  the  intro¬ 
duction  ci  the  new  modules  required  extensive  changes  to  the 
existing  modules. 

Before  developing  the  discussion  for  the  proposed 
modules,  it  will  be  instructive  to  examine  the  use  of 
I3MPIP-P0Q 1/MICE  at  Naval  Postgraduate  School.  This  acts  as 
a  first  step  toward  developing  an  overall  pailosophy  within 
which  future  modifications  will  fit  in  a  logical  sequence. 

IEMPIP- POO  1/MICE  is  incorporated  in  a  course  titled 
Aircraft  Combat  Survivability  (A£  3251)  and  is  used  as  a 
teaching  aid  in  developing  an  understanding  of  the  factors 
affecting  aircraft  survivability  in  a  hostile  AAA  and  SAM 
environment.  In  a  game  environment,  student  teams  "fly"  a 
bombing  mission  against  a  target  defended  by  seven  AAA  and 
one  SAM  locations.  There  are  game  restrictions  on  the  loca¬ 
tion  of  seme  of  the  defensive  positions.  There  are  also  game 
restrictions  on  the  performance  of  the  pseudo-aircraft.  Each 
team  is  responsible  for  generating  one  defensive  and  one 
offensive  data  file.  When  each  team  is  satisfied  with  their 
parameters,  the  data  files  are  exchanged  in  suen  a  manner 
that  each  team’s  flight  path  is  compared  to  the  other  team's 
defense.  Implicit  in  this  method  is  the  understanding  that 
each  team  has  no  knowledge  of  what  the  incoming  data  files 
will  look  like.  The  comparisons,  then,  approach  arbitrari¬ 
ness.  P001  and  MICE  act  as  the  judge,  in  that  the  team  with 
the  lowest  probability  of  kill  for  their  flightpath  is  named 
winner. 

To  ensure  comparability  of  scores,  the  performance  of 
the  aircraft  is  fixed  for  the  game,  although  I3MPIP  pres¬ 
ently  has  the  capability  of  permitting  performance  and 
flight  profile  changes  OF  THE  ONE  aircraft  described  in  it. 
This  is  an  important  point  to  note. 


what  is  left  as  variables  at  the  disposal  of  the  tears 
then,  are  defensive  positioning  and  tae  specific  rligntpath 
of  the  aircraft.  This  lea ds  the  students  directly  to  the 
concept  cx  tactics  as  a  method  of  lowering  probability  of 
kill  (Increasing  chances  of  survival).  This  is  good.  What 
would  be  better  would  be  for  the  student  to  reach  the 
conclusion  that  reduction  of  vulnerability  and  suscepti¬ 
bility  flaws  in  the  aircraft  will  lead  to  a  probability  of 
survival  exceeding  that  which  can  be  accomplished  by  tactics 
alone.  There  are  several  modifications  to  IEMPI?  that  would 
accomplish  this  goal. 

As  stated  earlier,  P001  and  MICE  are  used  by  industry  to 
make  design  decisions.  Ihis  fact  leads  to  the  demand  that 
the  data  on  the  position  of  the  aircraft  be  at  least  as 
accurate  as  the  detect  and  track  capability  of  the  defensive 
devices  programmed  into  POO  1  and  MICE.  Such  is  not  presently 
the  case.  The  original  version  of  IBMPIP  uses  an  assumed 
quadratic  flightpath  between  the  current  milestone  and  the 
two  previous  milestones.  The  aircraft  accelerations  are 
computed  at  the  center  of  these  three  milestones  based  on 
the  velocity  between  the  third  and  center  milestones  and  the 
velocity  between  the  center  and  current  milestones.  If  the 
accelerations  at  the  center  milestone  are  acceptable,  the 
current  milestone  is  accepted.  P001  and  Mice  assume  a 
straight  line  between  these  milestones.  Because  the  user  is 
free  to  define  milestones  thousands  of  meters  apart  there 
can  be  a  significant  lateral  error  in  the  computed  aircraft 
position  at  the  mid-points  between  the  milestones. 

A  last  area  to  be  discussed  is  the  output  from  P001  and 
MICE.  At  present,  it  is  difficult  to  obtain  rapid  correla¬ 
tion  between  the  "aircraft”  and  where  it  is  being  subjected 
to  attack.  The  output  from  both  P001  and  MICE  are  in  the 
form  of  long  tables  of  time-space-attitude  information  of 
the  aircraft,  probability  of  <iiis  for  each  defensive 


device  and  the  cumulative  probability  of  kill  based  or.  tr. -• 
sum  of  ail  of  the  defense.  The  user  must  then  graph  by  bar:! 
the  location  of  tne  "aircraft"  at  the  time  it  is  threatened 
or  being  damaged,  to  draw  any  conclusions  on  its  suscepti¬ 
bility  and  to  a  lessor  extent,  its  survivability. 

Sy  way  of  summary  then,  a  statemant  is  made  as  to  what 
would  constiture  an  ideal  IBMPIP-POOI/flICE  implementation  to 
satisfy  all  the  above  mentioned  shortfalls. 

IBHPIP-POO 1/SICE  should  be: 

•  interactive  to  permit  feed  back  of  pertinent  operating 
information  to  the  user 

•  user  friendly  to  diminish  the  requirement  for  special¬ 
ized  operating  procedures  and  to  avoid  fatal  errors 

•  approaching  real  time  in  ability  to  compute  and  present 
results 

•  graphics  oriented  to  enhance  the  convenient  generation 
of  input  data  AN  £  presentation  of  results 

•  accurate  to  the  extent  of  the  systems  being  modelled 

•  flexible  through  incorporation  of  a  selectable  range  of 
different  aircraft  and  defensive  weapons 

•  transportable,  as  accomplished  through  modular  program¬ 
ming  techniques 

In  conclusion,  two  of  the  above  points  are  addressed  by 
this  thesis  and  will  be  discussed.  They  are  incorporation 
of  user  friendliness  and  a  more  representative  flightpath. 
The  most  difficult  task  has  been  the  convenient  generation 
of  an  accurate,  representative  flight  path. 


II.  USER  FRIENDLINESS  » 

A  generally  accepted  meaning  of  "user  f riendliness"  is 
to  structure  a  program  in  such  a  fashion  that  the  user 
cannot  "do"  anything  to  cause  an  unplanned  nalt  in  execu-  • 

tion.  The  siaplist  version  of  the  above  concept  is  to 
prevent  the  user  from  entering  data  upon  which  the  program 
is  not  structured  to  act.  The  following  example  is  taken 
from  the  original  I3MPIP.  • 

50  HRITE  (6,6  00) 

READ  (5,*)  IGUN 

600  FORMAT ( *  G DNS;  0-DISK  FILE, 1-TESHINAL, 2-PRESET* ) 


It  is  clear  that  the  cnly  correct  responses  are  0,  1,  and  2. 

It  is  also  clear  that  any  integer  number  would  satisfy  the  • 

READ  statement.  To  prevent  unplanned  events  from  taking 
place  in  the  program,  the  following  change  is  made: 

50  WHITE  (6,6  00) 

READ  (5,*)  IGUN 

IF  ( IGUN.  NE.0.  AND.  IGUN.  NE.  1.  AND.  IGUN.NE.2) 

♦GOTO  50  v 

600  FOR M AT ('  0=DISK  FILE, 1-TERMINAL, 2-PRESET* } 

The  user  is  now  prevented  from  progressing  beyond  this  point 

in  the  program  until  an  acceptable  input  is  made.  The  user  * 

is  encouraged  to  try  again  by  having  the  prompt  message 

repeat  on  the  screen. 
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If  the  definition  of  user  friendliness  is  broad;;.:.,  no 
include  “convenience"  to  the  user,  tnen  there  are  many 
sen  sees  which  could  profitably  be  incorporated.  For  e.vanyi;,  ~ 

in  the  current  version  of  IBHPIP,  once  a  map  has  been 
successfully  created  on  the  graphics  screen,  all  further 
data  is  entered  through  a  graphics  buffer.  The  reason  for 
this  method  is  to  allow  the  user  to  see  a  continuous  trace  0 

(see  figure  2.1)  of  the  trajectory  that  will  be  submitted  to 
POO  1/MICE.  However,  if  a  game  parameter  or  an  aircraft  limi¬ 
tation  is  violated,  the  program  suspends  execution  and 
queries  the  user  for  a  selection  of  one  of  two  options:  • 

1. Accept  the  data  point,  which  violates  a  parameter  or, 

2. Substitute  a  data  point  which  does  not. 

This  can  turn  into  an  iterative  process  between  the  user  and  • 

the  program. 

It  is  a  contention  of  this  thesis  that  parameter  viola¬ 
tions  which  do  not  affect  the  overall  outcome  of  the  surviv¬ 
ability  of  the  "aircraft"  should  be  corrected  automatically  • 

by  the  computer.  At  most,  for  these  kind  of  errors,  the  user 
should  see  an  advisory  statement  that  does  not  require  a 
response.  The  following  example  is  offered  in  support  (to 
improve  readability,  some  of  the  variables  are  renamed  to  • 

simpler  mnemonics)  . 

One  of  the  game  parameters  that  must  be  satisfied  is 
that  during  the  enroute  portion  of  the  "flight",  the 
"aircraft"  may  not  descend  below  60  meters  altitude,  as  • 

denoted  by  the  variable  HTJ1IN.  Presented,  then,  is  the  orig¬ 
inal  program  flow  for  a  violation  of  this  parameter. 
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Figure  2.1  Continuous  Flight  path  Trace  Proa  Present  IBHPIP. 


1  —graphically  input  Z1 

ALT=Z1  (where  Z1  is  the  altitude  in  meters 
—  call  it  50  meters) 

IF ( ALT.  GE  . HTMIN)  proceed 
otherwise 
'EBfiO  R=3 

GOTO  (1,2,3,  ...)  ,  ERROR 
3  WHITE  (6,603) 

603  F0RMAT(' ALTITUDE  TOO  LOW) 

WRITE  (6,6  50) 

HEAD  (5,  *)  ICOR 

650  FOR M AT ( ' DC  YOU  WISH  TO  CORRECT  ERROR, 

*  1=YES  ,2  =  MC) 

IF  (ICOR  .  EQ.  1)  GOTO  1 

1  5 


Positional  parameters  such  as  this  are  easily  vrcl-tei 
because  the  graphic  setup  constrains  tae  "altiaete r"  to  10  •; 
meter  increments  and  it  is  difficult  to  discern  where  t ' 
meters  falls.  If  the  user  violated  tnis  parameter,  it  was 
obviously  with  the  intent  to  go  as  low  as  possible  without 
violating  the  parameter.  It  would  seem  reasonable,  then,  to 
modify  the  program  in  the  following  fasnion: 

ALT=  Z  1 

IF  (AIT.  G2.HTMIN)  proceed 
otherwise 
ALT- H1MIN 
WHITE  (6, 100 ) 

100  FORMAT  (’USER  7IOIATES  MINIMUM  ALT  RESTRICTION: 

♦COMPUTER  CORRECTS;  EXECUTION  CONTINUES’) 

The  following  kind  of  situation  is  particularly  frus¬ 
trating,  as  there  is  no  clue  given  to  the  user  as  to  what  is 
the  problem.  The  statement  is  found  in  a  passage  that  is 
reading  in  data  from  a  pre-established  disk  file. 

308  IF(MNUM.E£.1.ANU.LTR.ZQ.  33)  STOP 

MNUM..EQ.1  represents  the  first  data  point  entered  into  the 
program.  LTR  is  a  control  variable,  and  code  33  is  that  used 
to  signify  that  "aircraft”  milestone  entry  is  complete. 
Unless  the  user  happens  to  have  access  to  the  program 
listing,  there  is  nothing  to  indicate  that  s/he  is 
attempting  to  read  in  a  flawed  data  sat;  yet  selection  of 
code  83  is  permitted  on  the  first  data  point  entry  when 
setting  up  the  disk  file. 
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The  solution  here  is  to  simply  route  the  program  flew  to 
a  message  informing  the  user  of  the  difficulty, 

308  IF(MN0K- EQ.  1. AND. LTP.  EQ.  83)  GOTO  100 
100  FOR  MAT ( *  I NEUT  DATA  IS  FATALLY  FLAWED, 

♦PROGRAM  UNABLE  TO  CONTINUE,  PROGRAM  TERMINATES') 
STOP 

In  conclusion,  user  friendliness  using  concepts  as 
stated  above  are  incorporated  into  the  improved  version  of 
I3MPIE.  It  is  anticipated  that  as  the  scope  of  the  users 
increases,  more  changes  will  become  apparent. 


III.  SOMMASI  CF  COS  aONALITY  BETWEEN  PROGRAMS 

The  current  -  id  proposed  methods  of  generating  a  flight 
path  share  a  common  objective: 

Accurately  model  the  trajectory  of  a  flight  of  a  fixed- 
wing  aircraft.  Make  the  model  realistic  ty  subjecting  the 
trajectory  to  the  performance  limitations  of  the  real 
aircraft. 

The  aircraft  performance  limitations  for  both  programs  are: 

1.  acceleration  along  the  longitudinal  axis  of  the 
aircraft 

2.  acceleration  normal  to  the  longitudinal  axis  *  ("g" 
loading) 

The  forward  acceleration  is  composed  of  components  from: 

1.  engine  thrust 

2.  aerodynamic  drag 

3.  gravity 

The  normal  acceleration  is  composed  of  components  from: 


1.  lift 

2.  drag 

3.  gravity 
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Figure  3.1  Elements  Comprising  Forward  and  Normal  Acceleration. 

Figure  3.1  illustrates  the  components  making  up  forward  and 
normal  accelerations.  There  are  ten  parameters  of  the 
trajectory  which  must  be  determined  for  subsequent  use  by 
F001  and  MICE.  They  are: 

1.  spatial  components  (x,y,z) 

2.  velocity  components  (u#v,w) 

3.  attitudinal  components  (heading  angle  ( y ) ,  pitch  angle 
(0),  and  roll  angle  (^)) 

4.  elapsed  time 

The  overall  method  by  which  the  components  are  generated  in 
the  twc  programs  are  the  same: 


1.  The  ter.  components  representing  translation/rotetior_ 
from  one  input  milestone  (x,v,z  and  velocity)  to  t:te 
next  are  computed  in  tie  earth-fixed  (inertial)  coordi¬ 
nate  system. 

2.  The  accelerations  resulting  from  the  displacement  in 
the  earth-fixed  coordinate  systems  are  transformed  into 
the  aircraft-fixed  (rotational)  coordinate  system. 

3.  The  thrust  and  g-ioai  on  the  aircraft  are  computed. 

4.  If  the  thrust  and  g-loading  fall  within  predefined 
limits,  the  10  components  are  accepted,  written  to  file 
and  the  program  re-initialized  to  accept  the  user's 
next  milestone. 


Cne  difference  between  the  current  and  the  proposed 
program  occurs  in  the  treatment  of  the  conditions  of  over-  • 

thrust  and  ovar-g-load.  The  current  program  halts  the  execu¬ 
tion  and  reguests  a  user  fix  to  the  milestone.  The  proposed 
program  adjusts  the  parameters  internally  until  thrust  and 
g-limitations  are  met.  • 
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17.  S OSH ARY  OF  CURRENT  IB HP IP 

The  current  method  is  described  below.  Three  milestones 
are  used  to  compute  average  values  or  heading,  climb  and 
velocity  components  of  the  middle  milestone.  The  flight 
path  is  always  expressed  as  a  straight  line  between  two 
points.  Kith  this  system,  the  invariables  are  the  spatial 
coordinates  of  the  nilestones  and  the  "aircraft"  speed  at 


MSa(x,Y<'Z,v} 


MSli  ( X,Y,2,V) 


tasks  are  accomplished: 


1.  The  user  gets  a  "feel”  for  waere  the  aircraft  is  going 
or.  the  sap. 

2.  Data  is  coaputed  on  the  ten  aircraft  parameters,  vhich 
at  the  completion  of  a  run  of  Xod?x2,  will  me  summit  ted 
to  the  batch  prograas  P001  and/or  MICE. 


The  data  required  by  P001  and  MICE  are  presented  pictoraily 
in  the  following  figures. 


Figure  4.2  Spatial  Conponents 


Figure  4.4  Angular  Displacements 


presented  in  the  following  figure; 
lent,  ail  diagrams  will  occ  upy  cat 
standing  that  the  discuss, 
three-dimensional  case. 


(xz.YZ) 


Cxi, Yl)  oxi 


Figure  4.5  computation  of 


D X  1=  (X 2-X  1 )  DX2= (X  3-X2) 

D  Y  1  =  ( Y2-Y  1 )  DY2=(Y3-Y2) 

D2 1=  (Z2-2  1 )  DZ2=  (2  3-2  2) 

DISH  =  SQRT (DXl**2+DY1**2+DZl 


Figure  4.6  Computation  of  Average  Velocity  (Speed)  . 


VAVG 1=  (V2-V1)  /2 
VAVG2=  (V3-V2)  /2 

The  elapsed  time  for  the  leg  and  total  to  the  milestone  are 
computed  as  follows: 

DI1=DIST1/VAVG  1 
ET2=DIST2/V  AVG2 

T2«T1+DT1 

T3=12+DT2 


Figure  4.7  Computation  of  Average  Velocity  Components 


VX1  =  VAVG1*  (EX1/DIST1)  VX2=7AVG2*  (DX2/DIST2) 

7Y1=VAVG1*  (DY1/DIST1)  7Y2=7A7G2*  (DY2/DIST2) 

7Z1=VAVG1*  (DZ  1/DIS11)  VZ2=VA732*  (DZ2/DIST2) 


Figure  4.8  Computation  of  Average  Acceleration  Components. 


DZLTAT=(l3-T1)/2 

A11=(VX2-VX1)  /DEITAT 
AY  1=  (VY2- VY  1)  /DELTAT 
AZ1=  (VZ2-VZ1)  /DEITAT 

When  at  milestone  two,  the  aircraft  is  presumed  to  have 
an  attitude  which  is  an  average  of  the  attitude  at  milestone 
one  (MSI)  and  the  attitude  at  milestone  two  (MS 2) .  Unit 
vectors  are  generated  at  tlS2  using  the  following  weighting 
scheme. 


» 


» 


» 


» 
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VY2, 


Figure  4.9  Components  Required  for  Average  Heading  Vector, 

I 

HDGAVG=DIST2/ (DIST1 +DI ST2) 

TDX=(  ( VX2/VAVG2 ) - { VXl / VAVG1 }  ) *HDGAVG+VX1/VAVG 1 
TDY=  (  ( VY2/V AVG2)-(VY1/VAVG1) ) *HDGAVG+VY1/VAVG1 
TDZ  = {  ( VZ2/VAVG2) -(VZ1/VAVG1) ) *HDGAVG+VZ1/VAVG1 


The  vectors  are  converted  to  direction  cosines: 


DNIT=SQRT (TDX**2+TDY**  2+TDZ**2) 

TEX=TDX/UNIT 
TEY=TDY/DUI T 
TCZ=TDZ/UNIT 


28 


C  A=ATAN  (TDZ/SQRT  (TDX**  2*TDY**2) ) 


Computation  of  the  roll  angle  is  temporarily  deferred. 
The  accelerations  in  the  earth-fixed  coordinate  system  must 
he  transforned  to  the  rotational  coordinate  systen  (see 
figure  4.10)  below. 


TMD  = 

f  •" 

COS  (HDG)*COS  (CA) 

* 

SIN  (HDG)  -COS  (CA) 

*  < 

SIN  ( CA) 

s. 

FH= 


SIN  (HDG) 
COS  (HDG)  > 

0  ) 


E?= 


(  > 
COS  (HDG)  *SIN(CA) 

« 

SIN  (HDG)  *SIN(CA) 

•  - 

A  Y 1  l 

)  COS(CA) 

AZ1  +GII  1 

TMD=  acceleration  along  the  aircrafts  longitu¬ 
dinal  axis 

?H=  acceleration  in  the  direction  of  the 
aircraft's  right  wing 

p?=  acceleration  in  the  direction  of  the  top  of 
the  aircraft 

GEE=acceleration  due  to  the  earth's  gravity  (9.82 
m/s2) 


The  roll  angle  ox  the  aircraft  with  respect  to  the  earth 
fixed  coordinate  system  is  written: 


RA=-AT AN (PH/PP) 

The  total  aircraft  lift  is  the  vector  sum  of  the  accelera¬ 
tions  normal  to  forward  translation  and  is  normal  to  the 
roll  angle: 


ACLIFT=SQRT  (PH * *2+??**  2) 


Eoth  the  forward  translation  acceleration  and  the  life  or 
normal  acceleration  are  non-dimensionalrzed  by  the  gra -/it;* 
term  : 

MD1*T  HD/GEE 
ACLIFT 1=ACLIFT/GEE 

The  above  is  based  upon  the  concept  of  force  divided  by 
weight: 

THRO  ST/WE  IGHT  =  ID  (TMD)  /mg  =  1.1  D/GEE  =  THD1 

Now  aerodynamic  drag  on  the  airframe  must  be  accounted 
for.  Drag  is  computed  using  conventional  aerodynamic  egua- 
tions.  Computation  cf  air  density  as  a  function  of  alti¬ 
tude: 

KHO=.  256*EXP(-.  103*22/1000) 

22=  absolute  altitude  of  milestone  2  in  meters 

This  equation  is  in  the  non-standard  dimensions 
(Ibf-sec2/ft2-meter2)  and  is  therefore  unacceptable.  It  will 
be  supplanted  in  the  following  chapter. 

Computation  of  the  coefficient  of  lift 

CL=2*ACLIFT/(RHC*V2**2/NL) 

WL=  wing  loading  in  lbf/ft2 

Computation  of  drag  (non-dimensional)  : 


< 


uW= ( (C  DO  CD  K*CL  **2/ CL)  *AC1I?I 

CDC=  coefficient  of  drag  at  zero  angle  of  attach 

CDK*CL**2=  drag  due  to  lift  4 


Net  longitudinal  acceleration  factor: 


IV  - 1 ilD+D* 
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Speed  brakes  are  accounted  for  ny  adding  a  surface  area 
factor  to  the  drag  eguation: 


DW  (s.b.)=  (  (0.  0  5*CDCH-CDK*CL**2)  /CL)  *  AC  LIFT 
0.05=  5:1  of  the  wing  surface  area 


The  limiting  parameters  are  tnen: 

1.  TW 

2.  ACLIFT 


« 


< 

1 

i 


« 


« 


4 
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V.  I N  TROD  OCT  ION'  CF  THE  PROPOSED  METHOD 

A.  OVERVIEW 

The  proposed  trajectory  nodules  were  written  to  satisfy 
the  following  goals: 

1.  Retain  user  friendliness  features.  This  is  defined  in 

tne  following  fashion:  once  a  user  enters  a  waypoint 

(we  are  here  renaming  milestones)  through  the  graphics, 
the  computer  should  fit  a  flight  path  to  that  waypoint 
without  any  further  action  on  the  part  of  the  user. 
Interpret  this  to  mean  the  user  cannot  enter  a  fatal 
waypoint. 

2.  The  trajectory  should  closely  match  an  actual 
aircraft's  in  spatial  coordinates,  linear  velocities, 
and  attitudinal  rotations  from  the  inertial  coordinate 
system. 

Observe  figure  5.1  for  a  comparison  between  the  two  systems. 

Under  the  proposed  system  the  following  gross  events 
take  place: 

1.  The  aircraft  is  defined  at  a  beginning  waypoint  which 
is  named  "old". 

2.  The  user  enters  a  next-waypoint,  defined  as  "new". 

3.  linear  acceleration  components  are  computed  from  "old" 
to  "new". 

4.  Using  the  accelerations  and  an  invarient  increment  of 
time,  tne  aircraft  is  moved  from  "old"  to  a  new  point 
defined  as  "temp". 


Figure  5.1  Comparison  of  Schemes. 


5.  Knowing  the  displacement  vectors  that  got  us  to  "temp", 
velocity  components  at  "temp"  are  computed. 

6.  Knowing  the  displacement  vectors  that  got  us  to  "temp", 
angular  displacements  are  computed 

7.  Knowing  the  time  increment,  rotational  velocities  are 
computed. 

8.  The  linear  AND  rotational  accelerations  at  "temp"  are 
transformaed  into  aircraft-fixed  coor dinartes. 

9.  The  transformed  accelerations  are  fed  into  the  left 
hand  side  { LHS)  of  the  Aircraft  Equations  of  dotion. 
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10.  If  thrust  and  g-load  iiaitaitons  are  not  esceedei, 
"teap"  becomes  an  accepted  point,  the  parameters  are 
v/ritten  to  file,  the  cap  is  updated  tv  one  tire  incre¬ 
ment  and  "temp"  becomes  new  ''old'*. 

11.  The  process  is  repeated  until  “old"  becomes  "new". 

12.  The  user  is  queried  for  the  next  waypoint. 

The  new  features  are: 

1.  The  computer  flight  path  is  now  a  discretized  version 
of  an  actual  flightpath  and  hence  is  more  realistic 
model. 

2.  Rotational  accelerations  are  accounted  for.  They  are 
not  accounted  for  in  the  present  program.  Thus,  the 
present  aircraft  performance  is  artificially  better 
than  the  performance  of  the  real  aircraft  being 
modeled.  Survivability  data  is  too  optimistic. 

Imposed  on  the  above  events  is  an  iteration  that  does  two 
things: 

1.  If  accelerations  resulting  from  the  user  input  lead  to 
"aircraft"  thrust  and  g-loadings  less  than  the  maximum 
defined,  the  accelerations  are  increased  until  thrust 
or  g-loading  hits  maximum  (whichever  occurs  first). 

2.  If  thrust  or  g-lcading  are  too  great,  either  the  user 
input  velocity  is  adjusted  downward  or  the  "new" 
waypoint  is  moved  in  a  straigat  line  away  from  the 
"old"  waypoint,  until  thrust  AND  g-load  fall  within 
limitations. 

Number  one  was  included  under  the  philosophy  that  a  pilot 
flying  an  aircraft  which  is  being  shot  at  will  not  be  flying 
at  less  than  the  iraximun  available.  A  drawback  to  the 
current  system  is  the  user  has  no  way  of  snowing  (except  by 
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exceeding  limitations)  whether  the  aircraft  is  at  maximum 
performance  or  not.  Numoer  two  was  included  in  keeping  wi.cn 
the  desire  to  model  the  real  aircraft  as  closely  \~ 
possible.  The  hierarchy  is  based  u^on  informal  interviews 
with  attack  pilots  attending  NFS. 

The  rest  of  the  Chapter  contains  a  detailed  examination 
of  the  subroutines  and  an  explanation  of  the  variables 
related  to  flightpath  generation.  Ail  equations  in  the  exam¬ 
inations  are  either  dimensionless  or  in  SI  units.  The 
subseguent  Chapter  reviews  the  remaining  subroutines  of 
I3MPIP.  The  final  Chapter  summarizes  the  current  status  of 
the  proposed  IBMPIP. 

B.  BIGCA1  LEVEL  S03EC0TINES 
1.  EIGCAL 

a.  expanded  name;  Big  Call 

b.  function;  Big  Call  acts  as  a  driver  for  the  rest  of 
the  subroutines  involved  with  flight  trajectory 
generation. 

c.  equations/calls: 

10  CALL  TP.NFRM 

CALI  SEBOLO 
CALL  aVELOS 
CALL  MVDOTS 
CALI  DELVE  C 
CALI  TttPPNT 
CALI  TUPVEL 
CALI  INRTP.M 
CALL  VECTOR 
CALI  ANGLES 
CALI  SOTRAT 
CALI  ACTRH  1 
CALI  ACTRM2 
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CALI  AC  ISM  3 
CALI  ACBVSL 


CALI  AC  ACC 
CALL  ACLMTS 
CALI  XCHNGE 
CALL  X  AYFN  T 
CALI  FILE 
CALI  GRAF IX 

d.  comments:  The  two  advantages  in  this  approach  are 
the  ability  to  treat  all  tne  flight  trajectory 
subroutines  as  a  single  package  and  having  this 
package  accessed  by  a  single  call  from  the  main 
program  of  IEMPIP. 

2.  TR'JFRM 

a-  expanded  name:  Transform 

b.  function:  Transform  takes  the  user  defined  values 
which  are  acquired  from  the  graphics  buffer  and 
loads  them  into  variables  peculiar  to  the  aircraft 
trajectory  package. 

c.  eguations/calls: 

XNEK=  XI 
YNEK  =  Y 1 
2NEi=  Z1 
V  ELC  N=V 1 

d.  comments:  The  above  is  done  to  permit  "in-house" 
manipulation  of  the  waypoint  values  without 
affecting  the  non-BIGCAL  subroutines  found  elsewhere 
in  IBM PI P.  Note  that  in  effect,  this  is  the  defini¬ 
tion  of  waypcint  "new"  for  the  trajectory  package. 

3.  NE«CLD 
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d.  comments:  See  figure  5.2.  Note  that  AJ2  is 
shadow  of  AJ1  on  the  x-y  pi  an e. 

MV£L03 

a.  expanded  case:  Sap  Coordinate  Velocity  Cocyon:  r'*-« 

fc.  function:  Generates  orthogonal  velocity  components 
for  the  user  supplied  speed  at  waypoint  "new". 

c.  equations/calls; 

IF  { N.GT.O)  GOTO  10 

UNEW= VELON  * (AG  1 /AJ  1) 

VNEW=  VELON* (AH1/AJ1) 

WNEW  =  VELON*  (AI1/AJ1) 

10  CONTINUE 

N  =  1 

d.  comments:  The  components  are  based  upon  the  direc¬ 
tion  cosines  from  "old"  to  "new".  As  the  "aircraft" 
moves  from  "old"  to  "new"  in  the  subsequent 
programs,  the  direction  cosines  can  change,  some¬ 
times  drastically.  1  Those  changes  are  taking  •  place 
along  a  temporary  path  which  is  "fuzzy"  at  first.  It 
is  fatal  to  the  program  for  this  "fuzziness"  to  be 
allowed  to  influence  the  endpoint  velocity  compo¬ 
nents  (located  at  "new").  Therefore,  the  computation 
of  the  velocity  components  is  restricted  to  one 
iteration  between  any  given  "old"  and  "new".  There 
are  some  well  defined  exceptions  will  be  discussed 
downstream. 

MVDCTS 

a.  expanded  name:  Map  Coordinate  Velocity-Dot 

Ccmponen  ts 

b.  function:  Establish  the  linear  accelerations  between 
waypoint  "old"  and  "new". 

c.  eguations/calls: 


ACC  =  (VELON**2-V£LQO**2)/(2*AJ1) 
UDOI=ACC* ( AG1/AJ1) 

VDOJ=ACC* ( AH1/AJ1) 

»•  uG  {  Ax  1/A  J  1) 


d.  comments:  Again  the  components  are  based  upon  the 
direction  cosines.  The  derivation  of  the  equation 

ACC=(7ELCN**2- VEL00**2)  / (2*AJ1) 

is  given  in  appendix  3. 

DELVEC 

a.  expanded  name:  Delta  Vectors 

b.  function:  Compute  the  components  of  a  ds  vector  in 
preparation  cf  a  move  of  the  "aircraft"  from  "old" 
to  a  location  "temp".  "Temp"  is  a  point  along  a 
curvilinear  trace  with  the  defined  endpoints  "old" 
and  "new".  Establishment  of  the  points  "temp"  define 
the  curvilinear  trace. 

c.  eguations/calls: 

DELX=UOLD*  D ELIES*.  5*'JD0T*DELTES **2 
DEL Y=VOLD* DELIEE+. 5*VDOT*DSLTEE**2 
DELZ-MOLD* DELTEE+.  5* WD01*DELTEE**2 
IF  (AES  (DELX)  .  Gl.  A3S  ( AG1 )  )  DELX=  AG  1 
IF  (AES  (DEL  Y)  .GT.A3S  (AH  1 )  )  DELY=AH  1 
IF  (AES  (DEL  Z)  .  Gl.  A3S  (All)  )  DELZ=AI1 

d.  comments:  The  equations 

DE  LX=  UOLD*DSLT  EE* . 5*UD0T*  DELIEE*  *2 
DELY=VOLD*D£LTEE*.5*VDOI*D2LTEE**2 
DELZ=W0LD*DELTEE*.5*WD01*DELTEE**2 


aircraft  is  moved  forward  from  “old"  toward  "new”  by 
DEL  amounts  in  the  three  orthogonal  directions, 
utilizing  the  velocities  and  accelerations  just 
computed.  See  figure  5.3.  The  logic  statements 

IF  (ABS  (2ZLX)  .GT.  ABS  (AGl)  )  DELX=AG1 
IF  (ABS  (DEL/)  .GT.  ABS  { AH1)  )  DEL Y  =  A HI 


deal  with  the  situation  where  the  "aircraft"  is 

sufficiently  close  to  "new"  that  the  accunt  of 
translation  covered  m  one  second  is  greater  tnan 

*■  T  2  i-  r-  -  -  T  £ -  •*  ►  .4.  I»  ~  -  ft 

L ..  d  c  Uc  c  atu  t  w  vc  -w  u  v  -h.  j  an  «  i  <  c;  d  v.  *.-—.*  x  .  ».„  _ .  ..  . ^ 

overshoot)  . 

7.  TdPPNT 

a.  expanded  name:  Temporary  Point 

b.  function:  Define  in  map  coordinates  the  location  of 
the  point  "temp". 

c.  equations/calls: 

XTEaP=XOLD*DEIX 
YTE  MP=YQLD ♦DEL 7 
ZTEMP=Z01D+DEIZ 
IF  (DE1X.EQ.AG1)  XTSaP=XNEW 
IF {DE1Y.ZQ.AH1)  YI2a?=YNEW 
IF  (DELZ.EQ.AI1)  ZTEMP=ZNEK 

d.  comments:  The  first  three  equations 

XTE  J1P  =  XCLD+DELX 
YTEaP= YCID+DEL Y 
Z I E  MP=  Z  CID+ DEL  Z 

are  self-explanatory.  The  group  of  logic  statements 

IF  (DELX.EQ.  AG1)  XTEMP=XN2‘i 
IF  (DELY.EQ.  AH1  )  YIEMP=Y1JEV 
IF  (DELZ.EQ. All )  ZTEMP=ZNEW 

are  in  keeping  with  the  need  for  exact  arrival  at 
"new". 

8.  THPVEL 

a.  expanded  name:  Temporary  Point  Velocity  components 
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b.  function:  Generate  velocity  components  for  the  point 
"temp". 

c.  equatior.s/calls: 

UTS  3P=U0LD  +UDOT  +  DELT  EE 

VT2MP=70LD*VD0T*DELTSS 

»T2MP=«0LD+HD0I*DSLIEE 

IF  (DS1X.EQ.AG1)  UTESP=UNEH 

IF  (DEIY.EQ.  AH1)  YI3K?=7HEff 

IF  (DELZ.EQ.AI1)  WTEap  =  »:i3ii 

7ELOT=SQKT  <0TS:iP**2  +  VTEa?**2+WTEHP**2) 

d.  comments:  The  belov  equations 

UTE  SP=U  CLD+UDO  T*DELTEE 
VTEap=VCI D+VDO I*D£LTEE 
WTE  MP= WCLD+WD0T*D£LTE2 
7ELOT=SQST(UTE2!P**2*VTEHP**2+KTEM?**2) 

are  conventional  dynamic  equations  and  are  derived 
in  appendix  E.  The  three  logic  statements 

IF (DELX.EQ. AG1 )  UTSMP=UNEW 
IF  {DELY  «  EQ. AH1 )  VTEHP=7NEW 
IF (DELZ.EQ.  All  )  MTEap=WNEM 

again  deal  with  the  exact  arrival  at  "new". 

9.  INRTSM 

a.  expanded  name:  Initial  Rotational  Transformation 

b.  function:  Convert  velocities  and  accelerations  which 
are  defined  in  terms  of  map  coordinate  (y  points 
North,  x  points  East,  and  z  points  "up")  components 
to  a  coordinate  system  which  sees  conventional  use 
by  aircraft  designers  (y  points  South,  x  points 
East,  and  z  points  "down"  toward  the  earth).  See 
appendix  C. 
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c.  eguations/calls : 

rj  1  =  UTENP 
V1=-VTEM? 

H1*-9T2ME 
001=  UDOT 
VD1=-VD0T 
WD1 =-RDOT 

d.  comments:  None. 

10.  ANGIES 

a.  expanded  name:  Angle  Change  Increments 

b.  function:  Compute  the  angles  resulting  from  the 
"aircraft • s M  move  from  "old"  to  "temp". 

c.  equations/calls: 

DS=  5QET  (DELX**2+DELY**2+DSLL**2) 

IF  (DELX.NE.O.)  GOTO  10 

IF  (DELX.EQ.O..  AND.DELY.LT.  0.) 

*  P5IN  EW=AA 1 

IF (D  ELX. EQ. 0 . . AND. DEIY .GT. 0. ) 

*  FSIN  EH=-AA 1 
GOTO  20 

10  CONTINUE 

PS2HER—AIAN  (DELY/DELX) 

IF  (DELX.GT.0.  .  AND .  DEL  Y.  EQ.  0  . )  PSINEW=0. 

IF  (DELX.LT.0.  .AND.DELY.LT. 0.) 

*  PSINEW=AB 1+PSINES 

IF  (DELX.  LT.0.  .  AND .  DEL  Y.  EQ.  0  . )  PSINEW=A31 
IF  (CELX.  LT.0..AND.DELY.GT.0.) 

*  PSINEW=PSINEH-AB1 

20  CONTINUE 

THENEW=ASIN (DELZ/DS) 


ft 


»  < 


ft  < 


ft 


ft 
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TR  NRAT  =  (?  SINEF-PSIOLD)  /DELT EE 
IF  (rSINE/i  .51.0.)  P HIN2w= 

AT  AN  (ABS  (Tir.NRAx*YEL0i'/9.  7958)  ) 


*  -ATAN  ( A33  (IS  NRAI* V2L0I/9 .79  56)  ) 

IF  (PSINEW.EQ.PSIOLD)  PHINEW=?HIOLD 

c.  co ut lut;  diicr <ic t  n dc  a  ^arnica^n  ^otit ict  a x. 
the  defined  location  "old".  The  movement  to  "temp" 
represents  a  "turn"  toward  "new".  The  angles  are 
required  for  two  reasons:  tne  fact  that  the  vuln¬ 

erable  area  of  the  aircraft  is  a  function  of  the 
aircraft's  attitude  with  respect  to  damage  propoga- 
tors  and  the  rotation  of  the  aircraft  in  the  turn 
generates  additional  accelerations  whicn  superpose 
on  the  linear  ones  just  determined.  These  rota¬ 
tional  accelerations  must  be  accounted  for  when 
analysing  the  loads  imposed  on  the  aircraft. The 
variabl  es 

A  A 1  =1 . 5  708  radians  (90  degrees) 

AB  1-3.  1  416  radians  (130  degrees) 

represent  recurring  quadrant  angles. The  equations 

IF  (DELX.NS.O.)  GOTO  10 

IF (D ELX.EQ.O. . AND. 0 ELY. LI.  0.) 

*  PSIN  EN=  AA 1 

I? (D ELX.SQ.0.. AND.DELY.GT. 0.) 

*  PSIN  E'W  =  -A  A  1 
GOTO  20 

10  CONTINUE 

PSINEN=-A  TAN (DEL Y/DELX) 

IF  (DELX.GT.0..AND.DELI.EQ.0.)  ?SINE»  =  0. 

I?  (DELX.  LT.0..  A ND.DELY.LT.  3.) 

*  PSINEW=A3 1+PS1N2* 


< 


1 


4 


I 


4 


4 


< 
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IF  (DELX.LT.O.  . AN3. DEL Y. EQ. Q . )  PSIKEW=AL1 
IF  {DELX.  L  'I.  0.  .  AhD.DEL  Y.GT.O.) 

*  PSISS»=PSiaEW-A31 

determine  the  tarn  angle  PSINEW.  The  tarn  angle 
(or  heading  change}  is  referenced  from  the  positive 


Figure  5.4  Sense  for  Horizontal  Turns. 

x~axis,  is  measured  in  radians,  and  aay  be  either 
positive  or  negative.  Positive  is  defined  as  a 
CLOCKWISE  rotation.  This  sense  is  specified  to 
insure  compatibility  with  upcoming  transformation 
matrices.  See  figure  5.4.  The  equation 

THENEW  =  ASIN  (DELZ/DS) 
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which  is  a 


defines  an  angle  THESE?!  (thetanew) 
aeasure  of  the  "aircraft’s"  pitch  above 


v 

z 


Figure  5.5  Sense  for  Pitch  Above/Below  the  Horizon. 

the  horizontal  plane  (horizon).  Positive  is 
defined  as  nose  above  the  horizon.  THE NEK  is  meas¬ 
ured  in  radians.  See  figure  5.5.  The  roll  angle 
PHINEW  defines  how  much  the  right  hand  wing  of  the 
"aircraft'1  is  rotated  above  or  below  the  horizon. 
PHINEK  is  a  function  of  PSINEW  and  is  related 
through  the  turn  rate  of  the  aircraft.  The  equation 

Tfl  NRAT=  (PSINEW  -  PS  10 LD)  /DELTEE 
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► 

defines  turn  rate  as  the  heading  change  than  tcox 
place  going  from  "old”  to  "temp"  over  t;.t  period 
DZLTE2.  The  factor  9. 7956  tnat  appears  in  equations 

IF  (PSINZw .GI.O.)  ?flI3JE<?=  * 

*  AT  AN  (ABS  ( TEN RAT*7 2LGI/9.  7958)  ) 

IF  (PSINE'rf  .LT.O.)  PHISS'i- 

*  -ATAN  (ABS  (TEHHAT*7SLOT/9-7958)  ) 

► 

is  derived  in  appendix  3.  The  logic  statement 

IF  (PSINEW.  EQ.  P  SIGLC)  ?HIN2W=?HIGLD 

accounts  for  constant  heading.  It  is  written  in  l 

this  fashion  to  smooth  tne  roll  angle  ana  therefore 
roll  rate  through  the  "new”  waypoint.  This  will  be 
clarified  in  the  comments  on  the  next  subroutine. 

11.  ROTRAT  > 

a.  expanded  name:  Hotational  Rates 

b.  function:  Compute  the  orthogonal  rotational  rates 
that  occurred  as  a  result  of  the  move  froa  "old"  to 

"temp".  > 

c.  equations/calls: 

PSIE0T=(PSIN2tf-?SI0LD)  /DELTEE  t 

THEDOT= (T  HEN  Efi-THEOLD) /BELT EE 
PHIEOT= (?  HINEW-PHIOLO)  /DEL TEE 

d.  comments:  See  figure  5.6  for  rotation  sense.  * 

12.  ACIRH1 

a.  expanded  name:  Aircraft  Transformation  Matrix  #1 

b.  function:  Transform  the  velocity  and  acceleration 

components  referenced  to  the  earth-fixed  coordinate  * 

system  (x  pointing  East  and  z  pointing  down)  into 
components  referenced  to  coordinate  system  with  x 

l 


» 
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•T#] 


z 


Figure  5.6  Definition  of  Positive  Rotations.  *  i 

pointing  along  the  nose  of  tae  aircraft  (but  still 
in  the  horizontal  plane)  and  z  pointing  down, 
c.  eguations/calls: 


ANG=PSIMEW 

U2=  COS(ANG)  *D1+SIN  (AUG)  *71 
V2=-SIN(ANG)  *U1+C0S  (ANG)  *V1 
W2=W1 

0D2=  C0S(ANG)*0D1+3III  (ANG)*VD1 
VD2=-SIN ( ANG) *UD1 +COS (ANG) *7D1 
WD2=RD1 
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» 

d.  comments:  See  appendix  C  far  a  development  of  all 
three  transformation  matrices/  ACTS!!  1,  ACT? -.2,  ar.  1 
ACTSS3.  The  requirement  for  toe  matrices  stems  from 
the  require  rent  to  transform  tee  earth- mixed  coor-  l 

dindate  system  velocity  and  acceleration  components 
into  aircraft-fixed  cocrdinate  velocity  and  accel¬ 
eration  components.  Because  the  rotations  being 
dealt  with  are  discrete  rather  than  differential,  » 

the  order  of  the  transformation  matrices  is  fixed. 

This  is  also  demonstrated  in  appendix  C. 

13.  ACTRM2 

a.  expanded  name:  Aircraft  Transformation  Matrix  #2  * 

b.  function:  Carry  out  the  second  transformation 

whereby  the  x-axis  is  rotated  up/down  out  of  the 
horizontal  plane  to  go  througn  the  nose  of  the 

aircraft.  * 

c.  equations/calls: 

ANG=TH2NSW  , 

EJ3=C0S  (ANG)  *  CJ2-SIN  (ANG)  *W2 
V  3  =V2 

W3=SIN  (ANG)  * U2  +  C0S  (AUG)  *V2 

UD3-COS (A  NG) *UD2-SIN (ANG) *WD2  , 

VD3=VD2 

W D3=SIN  (A  NG)  *UD2  +  C0S  (ANG)  *WD2 

d.  comments:  See  appendix  C.  S 

14.  ACTRM3 

a.  expanded  naje:  Aircraft  Transformation  Matrix  #3 

b.  function:  Carry  out  the  third  transformation 

I 

whereby  the  y-axis  is  rotated  up/dowa  out  of  the 
horizontal  plane  to  go  through  the  right  wing  (as 
referenced  from  the  cockpit)  . 

c.  eguat ions/c ails: 

» 
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ANG=PHIN2  n 
UAC=U3 

7AC=  COS ( ANG) *V3+SIN  (ANG) *N3 
,i  A  C=-  5  IN  (  A.<G)  *  V 3+CjS  (ANG)  i 
aDC!AC=aD3 

V DCTAC=  COS  (ANG)  *  VD3  +  SIN  (ANG)  *WD3 
RDCIAC=-SIN  (ANG)  *VD3+COS  (ANG)  *  « D 3 

a.  comments:  See  appendix  C. 

15.  ACBVEL 

a.  expanded  name:  Aircraft  Rotational  Velocities 

b.  function:  Convert  (transform) the  rotational  veloci¬ 
ties  from  the  earth-fixed  coordinate  system  to  the 
aircraft- fixed  coordinate  system. 

c.  equations/calls: 

ANG1=?HSNEW 
AN  G2=PHIN  EX 

P=PHIDOT-  SIN  (A.NG1)  *?SIDOT 
Q*  COS  (ANG2)  *TH2DOT 

*  COS  (AN  G1)  *SIN  { ANG2)  *PSIDOT 
R  =  -SIN  (ANG2)  *THEDOT 

*  COS  (AHG1)  *COS  (ANG2)  *PSIDOT 

d.  comments:  See  figure  5.7  for  sense.  See  appendix  C 
for  derivation. 

1h.  AC ACC 

a.  expanded  name:  Aircraft  Accelerations 

b.  function:  Sum  up  the  linear  and  rotational  acceler¬ 
ations  imposed  on  the  aircraft. 

c.  equations/calls: 
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Figure  5-7  Aircraft  Rotational  Velocities.  • 

AX=UD0TAC-VAC*R*VAC*2 
AY=VDOTAC  +  UAC*R-v?  AC*P 

AZ=KDOTAC-UAC*Q+VAC*P  • 

1.  comments:  dene. 

17.  ACiaiS 

a.  expanded  name:  Aircraft  Limitations 

b.  function:  This  is  the  key  subroutine  of  the  trajec¬ 
tory  package.  It  calls  for  computation  o£_  the 

forces  imposed  on  the  aircraft  and  compares  the  t 

forces  to  allowable  values.  If  the  forces  are  too 
great,  it  initiates  a  selective  reduction  in  the 
earth-fixed  acceleration  components  until  the 
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» 


forces  on  the  aircraft  fall  within  limitations.  If 

the  forces  are  less  than  allowable  values  it  initi¬ 
ates  a  selective  increase  in  earth-fired  accelera¬ 
tion  components  ucu-  toe  a-ic 

reached. 

eyuat  ions/c  alls : 

CALL  THRUST 

IF  (A  ti.LI.  ANJAX.  AilD.  FWDACC  .  LI.  THMAX) 

*  CALL  oGCoxA 
IF  (A  N . GI.  ANilAX.OR.FWDACC.  3T.  THilAXJ 

*  CALL  REDUCE 

comments:  Ncne. 

.  XCHNGE 

a.  expanded  name:  Exchange 

fc.  function:  Cnee  the  performance  of  the  aircraft  has 
been  maximixed  at  the  point  "temp",’  "temp"  becomes 
accepted  as  a  point  along  the  trace  toward  waypoint 
"new".  "Old"  is  moved  up  to  "temp", 
c.  e<guat ions /calls: 

W 

XOID=XTEMP 
YO  1E=YT22!  P 
ZOIC=ZTEMP 

•  U0IC=UT2M  P 

YC ID=YTEH  ? 

W0L£=WT2MP 
PSICLD=P SINEW 

*  THECLD=TH  ENEW 

PHICLD=PHINZW 
V  E1C0  =  VEL  OT 


3 

B 

U 
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d.  comments:  This  is,  in  effect,  the  movement  forward 
of  the  "aircraft"  to  "temp",  the  next  ircrenenz 
toward  waypoint  "new". 

19.  "A YPN I 

a.  expanded  name:  Waypoint 

b.  function:  Load  the  accepted  values  into  vectors  for 
use  elsewhere  in  the  non-BIGCAL  portion  of  I3HFIP. 

c.  equations/calls: 

WX  (ICT)  =X OLD 
HI  (ICT)  =Y  OLD 
K2  (ICT) =2  OLD 
WO  (ICT)  =0 OLD 
WV  (ICT)  =V  OLD 
HH  (ICT)  =W  OLD 
WH  (ICT)  =- PSINEW 
W?  (ICT)  =  THENEW 
WE  (ICT) =- PHI NEW 
WG  (ICT)  =AN 

T (ICT)  =X (ICT-1) +DELT2E 


d.  comments:  The  minus  signs  appear  in  WH(ICT)  =  and 
WR  (ICT) =  to  account  for  transformation  back  into 
the  original  map  coordinate  system  which  has  z 
pointing  up. 

20.  FILE 

a.  expanded  name:  Write  to  file 

b.  function:  Immediately  write  ail  the  appropriate 

information  to  disk  file  for  future  use 

c.  equations/calls: 

IF  (XOLD.  N  2.  X  NEW.  OR.  YOLD.  NE.  YNEW.  CE.  ZCLD  .  NE.  2MSW  ) 
*  GOTO  10 


>  i 


»  • 


54 


s (ICT), 


t 

I 

I 

I 


10 


100 


WRITE  (1  1/  100)  I  (ICI)  ,WX  (ICT)  ,!1Y  (ICT)  ,i: 

«  0  (ICT)  , li V  (ICT)  ,”7  (ITT)  , 
WH  (ICI)  ,NP  (ICT)  ,  aE  (ICT)  , 

•'  0  (■*-£1)  jlil'v 

HETU  BN 
CO  SUNOS 


LT  5=0 

NS  ITE  (11#  100)  T  (ICT)  ,  X  X  (ICT)  ,7Y  (ICT)  ,112(107)  , 

*  WO  (ICT)  ,  W V  (ICT)  ,NW  (ICT)  , 

*  WH  (ICT)  ,  NP  (ICT)  ,  '13  (ICT)  , 

*  SG(ICT),LTR 
FORMAT  (11  (FI  0.2,  IX)  ,  13) 


d.  comments:  The  if  statement  is  the  current  method  of 
"  breaking  out”  of  BIGCA1  when  the  program  arrives 
at  the  waypoint  "new".  To  aid  in  reading  the  data 
files  the  control  variable  LTB  is  set  to  zero  for 
all  the  interim  points  on  the  curve.  LTB  is  a  noti¬ 
fication  by  the  user  ox  arrival  at  certain  key 
points  in  the  game  scenario  and  are  described  else¬ 
where. 

21.  GRAFIX 

a.  expanded  name:  Graphics  subroutine 

b.  function:  (Jse  the  SX(ICNT)  and  KY(ICNT)  vector 
values  to  plot  the  trace  of  the  flightpath  on  the 
graphics  screen. 

c.  equations/calls: 


PX1=WX  (ICT-1) 

P  Y 1=W Y  (ICT-1) 

P X2=WX  (ICT) 

P  Y2=WY  (ICT) 

CALL  WIN (MINX,. MAX X,  130  00.,  1200  0. ,0) 
C All  GBVECT  (0. , ?X1,PY 1) 
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CALL  GBV2CT  (1.  ,PX2,PY2) 
C All  G5.-5CI 


d.  coiaments:  Ice  equations 

?  X1=W  X  (ICC-  1) 

?  Y 1  Y  (ICT-1) 

P  X2=fc'X  (ICT) 

? Y2=WY  (ICT) 

establish  the  beginning  and  end  points  of  the  draw. 
The  call  to  the  subroutine  WIN  (window) 

CALL  WIN  (MINX,  MAXX,  16000.  ,  120  00.  ,0) 

reaches  into  non- BIGCAL  I  EH PIP.  For  here  it  is 

simply  described  as  a  definer  or  the  portion  of  the 
graphics  screen  on  which  tne  drawing  is  to  take 
place.  The  calls 

CALL  G3VICT  (0.  ,PX1,?Y1) 

CALL  G3VECT  (1.  ,?X2,PY2) 

are  calls  tc  the  graphics  package  GHAF  77,  the  IBM 
graphics  package  at  Naval  Postgraduate  School. 
GBVECT  passing  a  (0.)  interprets  as  "Move  to  the 
following  coordinates.".  G3VECT  passing  a  (1.) 
interprets  as  "Draw  to  the  following  coordinates". 
The  final  call 

CALL  GSEBCE 

forces  the  actual  updating  of  the  graphics  screen 
with  the  move  and  draw  just  called  for. 
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C.  THIRD  LAYER  SUBROUTINES 

The  following  subroutines  are  accessed  through  bIG<~Al. 
Their  cveraii  function  is  to  compute  the  forces  on  me 
"aircraft"  based  on  the  accelerations  in  the  "aircraft * s" 
coordinate  system.  Cnee  the  forces  are  established,  a  forth 
level  subroutine,  which  will  be  included  here  for  conti¬ 
nuity,  re-drives  the  higher  level  subroutines  to  iterate 
(ultimately)  the  forces  to  within  limitations. 

1.  THRUST 

a.  expanded  name:  Thrust  and  g-load 

b.  function:  fstablisn  the  forward  acceleration  and 

g-lcad  on  the  airframe. 

c.  equations/calls: 


ANG=THENEX  • 

THR  QD=AX/G  EE 

AN=SQRT  (AY  **2*AZ** 2)  /GEE 
SIGMA=  ( 1+D  TDH* ZTS.1P/T0)  **4.257 

EHOALT»RHOSSL*SIGSA  ? 

CL=  (2.  *AN*  WL)  /  (RHOALT*  VEL0T**2) 

DRAG=AN* ( ( CD0+CDK*CL**2) /CL) 

FBDACC*SIH  (ANG)  +THRQD+DRAG 

» 

d.  comments:  The  eguation 
A  N  G=TH£  NEW 

establishes  the  "aircraft's"  attitude  above  or  below 
the  horizon  and  is  necessary  for  computing  the 
direction  through  which  gravity  forces  act  upon  the 
"aircraft".  The  following  equations  respectively  » 

IHRQD* AX/GEE 

AN=SQST  (AY**2*  A2**2) /GEE 


» 


57 


compute  the  longitudinal  non- dimensional! zed 
acceleration  based  or.  the  user's  desired  cove  and 
the  composite  non-dimensionali zed  acceleration 
perpin  dicular  to  the  longitudinal  axis.  The  r.exr. 
equation 

SIG  MA  = ( 1+DTDH*  Z1EMP/T0) **1.257 

is  the  density  ratio  (altitude  to  sea-level)  and  is 
a  function  cf  standard  temperature  lapse  rate  and 
altitude.  It  is  derived  in  appendix  3.  I he  density 
at  altitude  is  then 

RH0ALT  =  EH0S3L*  SIGMA 

the  density  at  sea- level  times  the  given  ratio.  Iha 
density,  velocity,  non-dimensional  g-load  and  wing 
loading  (found  in  BLOCK  DATA)  are 

CL=  (2  .  *  AN*WL)  /  (RH0ALT*VEL0T**2) 

fed  into  the  equation  for  coefficient  of  lift.  Drag 
is  a  function  of  the  coefficient  and  is  given  as: 

DRAG=AN*((CD0+CDK*CL**2)  /CL) 

Ihe  components  gravity,  forward  acceleration 

(required)  and  the 

FE  D  ACC=  SIN (AUG) +THRQD+DR AG 

resulting  drag  on  the  airframe  are  summed  to  give 
the  total  forward  acceleration  on  the  "aircraft”. 
(The  acceleration  will  be  negative  if  user  "slows 
down". ) 

2.  BOO  SIR 

a.  expanded  name:  Performance  booster 

b.  function:  Increase  the  "aircraft"  performance  up  to 
the  allowable  maximum  thrust  or  g-load,  whichever  is 
smaller. 
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c.  e^uations/calls; 


I*  i =  1 

5  CONTINUE 

1*0 

IF  (AG1.E2.  DELX.C3.AG1.EQ.0.)  GOTO  10 

IF  (A3  S  ( A  3 1 )  .LX.  A3S  (A  HI)  .AND.  A3S  ( A  G 1 )  .11. 

*  ALS(A  II))  1  =  1 

IF  ( I.  NE.  1)  GOTO  10 
UDOT®  1. 02*rJDG  X 

10  CONTINUE 

IF (AHI.Ey.  DEIY. OR. AH1. EQ. 0.)  GOTO  20 

IF  (aBS  (AH1)  .LX.  A33  (AGl)  .  AND.  ABS  (A  HI)  .LI. 

*  A3S  (All)  )  1=2 

IF  (I.  HE.  2)  GOTO  20 
7D0T=1. 02*VDCT 

20  CONTINUE 

IF  (AI1.E2.  DELZ.OE.AI1.EQ.O.)  GOTO  30 

IF  (A3  S  (All)  .11.  ABS  (AGl)  .AND.  ABS  (All )  .11 . 

*  ABS  (AH1)  )  1=3 

IF(I.  NE.  3)  GOTO  30 
WDOl=1.02*WDOT 

30  CONTINUE 

IF(AG1.EQ.  DEIX.03.AG1.EQ.  0.)  GOTO  40 

IF  (ABS  (AGl)  .EQ.  A3S  (All)  .  AN  D .  A3S  ( AGl )  .  1 T . 

*  ABS (A  H 1) )  1=4 

IF  (I.  ME.  4)  GOTO  40 
UDOT® 1. 02*UDOT 
XD01*  1.0  2*  WDOT 

40  CONTINUE 

I?(AH1.E2.  DSLI.Ofi.AHI.SQ.O.)  GOTO  50 

IF  (ABS  (AGl)  .  EQ.  A3S  (A HI)  .  AND.  ABS  (AGl )  .  LT. 

*  ASS  (All)  )  1  =  5 

IF  (I.  NE.  5)  GOTO  50 
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UD0T=1. 02*UDQT 
7D0I=  1. 02*VD0I 

C  0.1  Tim. 

; a:i.  - d..-  r.  Ol,  ai i.  .  0- ,  m 

If  (A3  S  ( A  n  1 }  .£Q.  A53  (AID  .  V.  I .  A±~  ( A  “  i) 
ABB (A  G1) )  I=o 

If  [I.  Hi.  5)  GOTO  cO 
VDOT= 1 . 02*VDOf 
WD0I=1. 0  2*  GOO  : 

CONTINUE 
CALI  SSLCAL 
CALI  TH3U5 1 

IF  (AiJ.GE.ANdAX.CA.FWDACC.GE.  IHHAX)  GOTO  70 
GOTO  5 
CONTINUE 

IP  (AN.GT.A  N "•* A X}  A;;=AN  -=  '•  X 
IF  (FSDACC.  AT  .  f  f  LACC=Tf  :!AI 

ccr -ier.  t  s  i  T rife  logic  st. a  t e .'.c  n t 3 

If  (AG1.  Zi.DiLX  .C£.AGl.£i  .  0. )  GOTO  10' 
x  r  (  AH  1 .  E*.  D  ijj  1’ .  0  r. .AHI.E^.O.)  GOTO  2  0 
IF  (AI1.ZQ.DELZ.OF.AI1. 2Q.  0.)  GOTO  30 
If  ( A3  1 .  ZQ. OTI X. OH. A 31. £2*  0.)  GOTO  40 
If  (AH1.  EC.DELr.OE.AHUSC.  3.)  GOTO  50 
IF  {  A1 1 .  EQ.  D  EL  2  .OE.AI1.ZQ.D.)  GOTO  60 

avoid  iterating  on  orthogonal  directions  that  are 
defined  as  zero  oy  user  input  and  to  turn  off  itera¬ 
tion  when  then  "aircraft'*  has  arrived  at  the  desti¬ 
nation  (in  that  coordinate  plane).  The  logic 
equations  that  follow  choose  tne  direction 

IF  (ASS  (AG-1 )  .LI.  A3S  (A  HI)  .  AND.  A£S  (AGI).L 
*  AB3  (A  1 1)  )  1=1 

IF  (A3  S  (AH1)  .LI.  A3  3  (AG  1 )  .AND.  AES  ( A  H 1 )  .L 


A3b{AI1))  1  =  2 

IJ  (A3  3  (All}  .  A  5  5  {5;»1>  .  i  •: ? .  v;  :  <  >  . 

:.:3{.\ai)j  1=3 

-  -  (A-i  J)  .i».  ah  J  ( .1 J.  i )  .  aj  -  -  A-  (  i i  ;  .  _  . 

132  (4H1))  1  =  4 

If  (s33(.iG1).£i.Aji>{«h'l)  .  Ah  h.  ajj  («  31  /  .  _  j. 
453  (All))  1  =  5 

Ir  (  A  3  3  (Adi)  .  a  W  •  A- 3  (All/  -  A3  D  .  Ah  Z  ( A  A  1  ;■  .  3  1 
A3  3  (A  3 1 )  )  I=o 


in  W*i  ich  the  itcTltiO  j  IS  rO  line  tllCt.  3  m  3r;  *>-C" 
ticn  criterea  is  the  cooruinate  p^ane  ir;  w hie n  tac-re 
is  the  least  distance  left  to  go  to  the  desti.ua ticn. 
Thus  for  snail  altitude  changes,  the  "aircraft"  •*  ill 
'•pet-up  "  to  the  desired  altitud-  as  soon  as  physi¬ 
cally  possible.  In  otner  situations  the  "aircraft" 
’w  i  x  i  t  u  r  r  1  r  s  n  o  r  t  a  s  t  direction  r  i  r  s  c  •  *  i  r  a  ±  j.  y  ,  t  n  - 

acceleration  (in  nap  coordinates)  ir.  the  selected 
coordinate  t ittc  m  increased  in  uayrltune 

3303= 1 . 02*3331 
7303=1.  02*7303 
FDC3=1.  02*3 DC, 3 


untid.  pe  cror  nance  imitations  .ire  reao.iei. 
j .  5.33 UCR 

a.  expanded  na:ae:  Demanded  performance  reducer 

b.  function:  Fcr  a  user  defined  waypoint  that  exceeds 
the  allowable  maximum  thrust  or  g-ioad,  whichever  is 
smaller,  reduce  the  performance  demand. 

c.  ecuations/caiis : 


:1C0JJT=1 

CONTINUE 

7ELCN=V3L0 N-3EL3V 
A  =  V  3  3  A  L 1+  2 . *33137 

6  1 


5 


I F  ( VELC -3S.A)  gl:c  1J 

*t-'  -  —  .  •  v  ^ 

Aw  -*  t  .  1  ■■  An  — 

v'.i=cc-  (a:'G:  -  \J2 

An1  =  C  1.'  ( A  1.3  j  A  J  2 
V2LCS  =V1 

10  CONTINUE 

N  =  0 

CALI  M7EL0S 
CALL  aVDOIS 
CALL  SMLCAL 
CALI  THRUST 

IF  (Ab.LE.  A  NMAX. AND. FWDACC.  L2.THI1AX)  GCTC  20 
GOTO  5 


d.  comments:  The  tact  adopted  is  different  from  the  one 
chosen  for  ECOSTR.  The  "aircraft"  in  moving  from 
"old"  to  "new"  has  a  radias  of-  curvature.  When  the 
performance  limitations  of  the  "aircraft"  are 

exceeded,  this  means  the  "aircraft"  cannot  fly  with 
a  small  enough  radius  of  curvature  to  converge  on 
the  waypoint  "new" .  The  two  available  means  of 

meeting  the  demand  are  to  decrease  the  "aircraft ’s" 
deliverable  radius  of  curvature  by  reducing  the 

destination  ("new")  velocity  or  increase  the 

demanded  radius  of  curvature  to  something  the 

"aircraft"  can  accomplish  oy  moving  rhe  point  "new" 
further  away  from  the  point  "old".  Frequently  a 
small  change  in  velocity  is  sufficient,  therefore 

VEL0N= V  F10N-D2  LTV 

is  chosen  as  the  first  iteration.  DELTV  is  a 
velocity  increment  found  in  BLOCK  DAIA  and 


•  < 


•  i 


•  < 


•  < 
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represents  approximately  five  knots  airspeed  ir. 
meters  per  secor.1.  Tnis  value  was  chosen  as  r  r  — 
sentative  ox  an  attacx  pilot's  maximum  precision  i„ 
airspeed  control.  There  is  a  lover  hound  t?  •  irn 
airspeed  may  re  reduced,  and  that  is  the  stall  limi¬ 
tation  of  the  aircraft,  when  cue  "aircraft”  is 

A= V  3TAL1+2. *D3  LTV 
IF  (7EL0K.GZ.A)  GOTO  10 

close  to  this  limit,  tne  second  portion  of  the 
subroutine  is  invoked 

ANG-ACOS  (AG1/A  J2) 

A  J  2  =  1 .  1  *AJ2 
AG  1  =C0S  (AUG)  *  A  J2 
A  H 1  =S  I H  (ANG)  *  A  J2 
V  FI ON  =  V  1 

to  move  the  point  "new"  further  out.  yiote  the  final 
equation;  the  7iew  is  adopted  teat  an  attack  pilot 
will  not  wish  to  be  at  a  minimum  energy  anywhere  in 
the  appraoch  phase.  Iherefbre  the  originally 
selected  airspeed  is  reset  into  the  iteration. 

In  summation,  this  approach  was  taken  in  preference 
to  merely  setting  demanded  performance  equal  to 
maximum  deliverable  performance  to  avoid  the  unreal¬ 
istic  scnaric  depicted  in  figure  5.8 
4.  SMLCAL 

a.  expanded  name:  Small  call 

b.  function:  This  forth  level  suaroutine  was  written  as 
a  programmer  convenience  to  drive  the  iterations. 

c.  ecuations/calls: 

CALL  DSLV2C 
CALL  TSPPJfT 
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Figure  5.8  Unrealistic  Scenario. 

CALL  TilPVEL 
CALL  ISETSJi 
CALL  ANGLES 
CALL  HO  TP.  AT 
CALL  ACTRM 1 
CALL  ACTHM2 
CALL  ACTRM3 
CALL  A  CSV  EL 
CALL  AC  ACC 

d.  comnents:  As  can  be  seen  the  subroutines  are  these 
previously  described. 
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I.  «0N-3IGCAI  I3£PIP  SUBROUTINES 

A.  INTRODUCTION 

For  the  sake  of  brevity,  the  only  subroutine  addressed 
in  the  section  below  is  the  one  that  was  drastically  altered 
to  accomodate  the  BIGCAL  package.  The  rest  of  tne  subrou¬ 
tines  that  are  not  mentioned  may  be  found  in  the  listing  at 
the  end  of  the  thesis.  They  will  have  changes  from  the  Joans 
[Ref.  1]  version  of  IBMFIP  but  will  also  have  extensive 
numbers  cf  comment  cards  to  describe  to  Key  points  of  each 
subroutine. 

The  final  section  provides  a  consolidated  listing  cf  the 
graphics  calls  along  with  a  short  description  of  their  use. 

For  foliow-cn  alterations  to  this  version  of  I3NPIP  the  user 
should  consult  [Ref.  2]  for  complete  description  of  the 
available  graphics  subroutines. 

B.  SUBROUTINES 
1.  ERRCHK 

a.  expanded  name:  Error  checking 

b.  function:  Check  the  user  defined  "new”  waypoint  for 
game  rule  violations  or  user  commands  before 
entering  into  the  BIGCAL  subroutines. 

c.  eguations/cails: 

« 

DX=TAH3X-X 1 
D Y-TARG Y-Y 1 

DIST=SQRT  (DX**2«-DY**2)  • 

IF (DIST.LE.POPMIN)  GOTO  10 

IF  (21  . GT.APPMAX)  Z1  =  AP?MAX 
IF  (LI  .LT.HI3IN)  L  1=  Hid  IN 
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CONTINUE 


IF  (LIB.  NE- 65.CH.LIE2.ii  E. 65)  GOTO  20 

(iil  •  ijl  •  5r. -\^>  j. )  _i  1  -3  An*.  - 

CONTINUE 

IF  (Hr..  NE.  66.  OE.LIR2.  NE.  66)  GOTO  6  J 
IF  (Z 1  .  LT .  BE  MIN)  Z1  =  BEMIN 
IF  (Zl  .GT.3R3AX}  Z1-3EHAX 
IF  (01  SI.  LZ.  BSaH  AX.  AN 0-  DI5T.  GZ.  3F.EMIU) 


IF  (0ISI.GT.a3EH AX)  I23S-9 
IF (DIST. LI. 33RUIN)  ISEE=13 
RETURN 
CONTI NUE 

TGTHD  G=ATAN2(DY,DX)  *F.TD 
IF  {TGTHDG.LT.  0.  )  TGTHDG-TGTHDG  +  360. 

DX=X  1  -NX  (ICT) 

DY  =  Y1  -NY  (ICT) 

ACHDG=ATAN2  (DY,DX)  *ETD 

IF (AC  HDG.LT.O.)  ACHD G=ACHDG  + 36 0. 

riDGIM  T=AB3  (TGTHDG-ACHDG) 

'  IF  (HDGLMT.LE.  5. )  GOTO  40 
IEER- 1 0 
RETURN 
CONTINUE 

DIST=  SQET (DX**2+0Y**2) 

SPEED  =SQRT  (NO  (ICT)  **  2+5i  V  (ICT)  **2+WW  (ICT)**2) 
DT=DI ST/SPEED 
IF  (DT.GE.2. 33)  GOTO  50 
ISER=10 
RETURN 


CONTI NUE 


a.  comments:  The  first  equations  establish  the  distance 
free 


DX  =  TARG»X  1 
DY=TAEGY-Y  1 
DIST=SQST (DX**2+DY**2) 

the  waypoint  "new"  to  the  target.  The  next  group  of 
equati on  s 

I?  (DISI.lZ.PCPdlN)  continue 

IF  (Zl.GT.  APFdAX)  Z1=AP?MAX 
IF  (Zl.LT.  HTdlN)  Z1=HTMIN 
CONTINUE 

look  at  the  user  input  altitude.  If  the  user  exceeds 
either  the  maximum  or  minimum  inbound  altitudes,  the 
input  altitude  is  automatically  set  to  the  limiting 
paramter.  AFFdAX  ,HTMIN,  and  POPUIN  are  found  in 
BLOCK  DATA.  The  next  goup  of  lines  satisfy  the  game 
parameter  that  tne  "aircraft'1  must  be  "popped-up"  to 
a  given  altitude  berore  aim  at  the  target  can  be 
taken.  LIE  is  the  code  passed  from 

IF  (LTE.  NE.65.08.LTE2.NE.  65)  continue 
IF  (Z1.LT.  BAALT)  Z1  =  3AALT 
CONTINUE 

the  graphics  subroutines  signifying  that  the  tomb 
aim  line  is  desired.  LT52  is  a  back-up  code  passed 
-  from  the  same  subroutines  and  allows  the  user  to 
change  his/her  mind  while  still  entering  data.  LTR 
is  generated  upon  entry  of  the  X-Y  point  on  the 
graphics  screen.  LTR2  is  generated  upon  entry  or  the 
Z-velocity  point  on  the  graphics  screen.  EAAIT  is 
the  mnemonic  for  bomb  aim  altitude  and  is  found  in 
ELOCK  DATA.  The  following  statements  ail  relate  to 
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the  boat  release  point.  If  boab  release  is  rot 
called  for; 

skips  over  all  the  rest  and  returns  to  MAIN.  If  at 
fcomt  release  the  altitude  is  too  high  or  low, 

IF  {21. LI. BP  ill  N)  Z1  =  3MIN 
IF  (Z1.GT.EEMAX)  Z1=BRMAX 

set  the  altitude  to  the  ainiaum/maxiaiura  allowable. 
ERWIN  is  the  mnemonic  for  minimum  boab  release  alti¬ 
tude,  BRMAX  is  similiar,  and  both  are  defined  in 
ELOCK  DATA.  Eecause  the  flight  path  is  now  curvili¬ 
near,  there  is  no  convenient  way  to  correct  for  an 
input  that  violates  minimum  or  maximum  boab  release 
range  (froa  target)  .  Error  codes  are  generated  that 
infcrm  the  user  that  the  just-entered  point  will 
have  to  be  moved.  BRSMAX  and  BREHIN  are  found  in 
ELOCK  DATA. 

IF  (DI  ST.  IE.  BEE. MAX.  AND.  DIET.  GE.  3RR.MIN)  continue 
IF  (CIST.  3  I.  B3R.M  AX)  IERE=9 
IF  (LIST.  L  T.  BERMIN )  IERR=13 
RETURN 
CONTINUE 

The  following  group  of  statements  compare  the 
heading  from  the  aimpoint  to  the  target  with  the 
aircraft  aeading  to  the  target. 

TGTHDG=A1AN2(DY,PX)  *RTD 
IF (TGTHLG.LT. 0.)  IGTHDG=TGTKDG+360. 

DX=  XI  -  W  X  (ICT) 

DY  =  Y1-K  Y  (ICT) 

ACHDG=A  TAN2 (DY , DX) *RID 
IF (ACHDG.LT. 0.  )  ACHDG= ACHDG  +  360. 
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HDGLMT=ASS  (TUT  HDG-AChDG) 

IF  (HDGL8I.LS.5  .)  continue 
IZBB= 1 0 
RETURN 
CONTINUE 

I  f  the  "aircraft'*  heading  is  not  within  five  degrees 
of  the  aimline  tne  user  rs  rniormea,  and  tne  point 
must  be  user  moved.  RID  is  the  mnemonic  for  radians 
to  degrees  and  is  found  in  3LCCX  DATA.  If  the 
aircraft  does  not  travel  down  the  aialine  for  a 
minimum  of  2.33  seconds 

DIST=SQKT  (DX**  2+DY**2) 

SPE£D=SQRT  (WU  ( Id)  **2+«V  (ICT)  **2+N Jv  (ICT)  **2) 

D  T=  DI ST /SPEED 

IF  (DT.GE.2.  33)  GOTO  continue 
I SEE- 11 
RETURN 
CONTINUE 

i 

the  user  is  informed,  and  must  aahe  tne  correction. 

C.  GRAPHIC  CALLS 
D SI  NIT 

function:  Initialise  both  of  the  3277  screens. 

DSTERU 

function:  Terminates  dual  screen  graphics  activity. 
GASVIE  (aa,bo) 

function:  Defines  a  viewport,  or  a  smaller  portion  of 

the  total  graphics  screen  available.  Allows  subdividing 
the  total  screen  into  several  smaller  pictures. 

GAS  HIM  (aa,bb) 


»  < 


I  4 


»  4 


I  < 


>  a 


»  a 


»  « 


»  4 


>  4 
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function:  Takes  the  data  being  supplied  by  tr.e  user*'/, 

equations  and  converts  it  into  absolute  graphic  server: 
coordinates  in  preparation  for  drawing.  Takes  care  o 
propertionaii ty . 

GAXCTI  (aa,bb,cc,dd,ee) 

function:  Convert  user  supplied  character  strings  into 

integer  vectors. 

5 AXITC  (aa,bb,cc,  dd  ,  ee) 

function:  Convert  one  or  more  integers  into  characters 

in  preparation  for  writing  onto  tne  graphics  screen. 

G3CHAR  (aa ,bb,cc,  dd,ee,  ff) 

function:  Invokes  two  lower-level  graphics  calls  to 

write  characters  on  the  graphics  screen  in  the  defined 
font. 

G3GARC  (aa^bb^cc/dd/ee^ff ,  gg) 

function:  Invokes  two  lower-level  graphics  call  to 

generate  an  arc  of  either  a  circle  or  an  ellipse  (can 
also  be  the  whole  circle,  etc)  . 

G3GDOI  (aa ,bb , cc) 

function:  Invokes  two  lower-level  subroutines  to  draw  a 
filled-in  dot. 

G3RXYC  (aa  ,bb  ,  cc) 

function:  Head  cne  graphic  data  point  using  the  cursor 

cross-hairs. 

GBVECT  (aa,bb , cc) 

function:  Generates  a  "move-to"  or  a  "draw-to"  command, 
depending  on  whether  (aa)  is  zero  or  non-zero  (real 
number) . 

GSEESE 

function:  Erase  the  graphics  screen. 
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VII.  STATUS  CF  PROPOSED  I BMP  IP  AND  SUMMARY 

Despite  best  efforts,  the  proposed  version  is  roc  ready 
for  implementation.  The  flaws  revealed  by  extensive  testing, 
center  around  the  two  iterative  subroutines  and  are  felt  to 
be  solvable.  In  particular,  subroutine  11VD0TS  does  not 
account  for  the  following  situation,  see  figure  7.1: 


AGi 

A31 


"NEW" 

UNEW 


AIRCRAFT  TRAJECTORY 
AT  "OLD" 


X 


m 


Figure  7.1  A  Situation  Not  Addressed  By  Subroutine  AC  ACC. 


ACC  =  (VEL0N**2-VEL00*  *2)  /  (2*AJ1) 

UD01  =  (AG  1/A  J 1 )  *ACC  =  1.*ACC  =  ACC 
VDOT  =  (0. /AJ 1 )  *ACC  =  0. 
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5fe  see  that  by  the  model 
not  be  so.  There  is  a 
some  Y  distance  oeicw 


'I  { unknown) 


rr  V 


7  DOT 


,  7DOT=0.  Realistically, 

V OLD  ind  tuc  ’’aircraft" 
"oil",  let  that  distance 
then  will  actually  be: 


this  will 
wi_!  a  eve 


VDCT=VOLD  **  2/ (2  *Y0NK)  —  or  some  positive  value. 


The  best  estimate  at  an  approach  would  be  either  to  guess  a 
temporary  distance  based  upon  the  ratio; 

(VCID/UOLD)  *AG1 


or  to  guess  a  temporary  distance  oaseu  upon  a  linear  guess 
of  the  elapsed  time  between  "old”  and  "new".  Let  linear  time 
estimate  be  represented  by  ITS,  then: 


IIE=AB5  ({UN SX-BCLD)  /UD OT) 
X£JNK=VOLD*LTE 

VDOT =-VOLD/  (2*  (  (0N2W-0  CLD) /UDOT)  ) 


Another  area  of  concern  is  in  the  definition  of  the 
angles  in  subroutine  ANGLES.  Artificially  large  effects  are 
felt  in  the  angles  PSINEW  and  PHIN EW  if  DELX  or  DEL’/ 
collapse  to  zero  before  the  "aircraft"  arrives  at  "new"  in 
all  three  orthogonal  planes.  Additionally,  large  effects  are 
produced  in  the  last  DEL-  movement  to  "new",  causing  a 
hang-up  in  the  B0CS1R/RE DUCB  subroutines.  Because  the 
current  game  restricts  altitude  changes  to  approximately  one 
magnitude  less  than  eituer  X  or  Y  changes,  the  effect  by 
THENEW  (theta)  is  roughly  one  magnitude  less  througnout.  To 
pave  the  way  for  future  efforts  to  smooth  out  the  angle 
changes  between  "old"  and  "new",  the  variable  counter  MCCNT 
was  added  to  C0MM0N/AEE5/.  MCCNT  is  set  from  0  to  1  by  acti¬ 
vation  of  either  BOCSTR  or  REDOCR  and  switched  back  to  0 
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upon  exit  from  either  iterative  loop.  As  numerical  data  are 
written  to  test  tiles,  the  addition  of  MCOST  as  ar.ot.-er 
column  allows  differentiation  of  first- guess  values  from  the 
ECOolH/REDUCH  generated  values. 

*he  guestion  was  asked,  “If  the  angles  (and  therefore 
rotational  rates  and  therefore  angular  acceleration)  compo¬ 
nents  are  so  troublesome,  how  necessary  are  they  to  the 
accuracy  of  the  output?".  An  analysis  of  the  individual 
acceleration  components  in  subroutine  ACACC  revealed  that 
omission  of  the  angular  accelerations  could  lead  to  as  much 
as  a  501  difference  in  the  magnitude  of  the  net  acceleration 
in  any  one  of  the  orthogonal  directions  imposed  on  the 
aircraft.  The  answer  then,  is  that  smooth  generation  of 
angles  is  necessary  if  the  modelled  trajectory  is  to  be 
considered  faithful  to  a  real  flightpath. 

In  summation,  a  proposed  IB3PIP  improvement  has  been 
introduced  and  discussed.  It  is  substantially  more  user 
friendly.  It  employs  increased  use  of  specialized  graphics 
from  [Ref.  2]  and  when  completely  debugged,  will  provide  a 
far  more  accurate  flightpath  trace  with  less  user  interac¬ 
tion  necessary. 
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AP PENDIX  4 

USER’S  MANUAL  FOR  CURRENT  IBMPIP 


USER 'S  MANUAL 


AE  3251 

AIRCRAFT  COMBAT  SURVIVABILITY 


A  STUDY 
of 

AIRCRAFT  ATTRITION 
in  a 

HOSTILE  AAA  AND  SAM  ENVIRONMENT 


NAVAL  POSTGRADUATE  SCHOOL 
MCNTEREY,  CALIFORNIA 
WINTER  QUARTER,  1984 


I.  INTRODUCTION 


This  aircraft  attrition  study  is  designed  to  present  the 
student  with  an  opportunity  to  see  first-hand  how  the 
survivability  of  an  aircraft  can  be  evaluated  in  a  given 
combat  scenario.  The  methods  employed  in  this  study  are 
those  used  by  both  industry  and  government  when  making 
decisions  in  the  survivability  analysis  and  design  of  an 
aircraft  system.  In  this  study,  one  computer  program  named 
P00  1  (the  AFATL  Antiaircraft  Artillery  Simulation  Computer 
Program)  will  be  used  to  simulate  the  flight  of  a  typical 
Naval  attack  aircraft  through  a  hostile  antiaircraft 
artillery  (AAA)  environment  and  tc  compute  the  aircraft 
probability  of  survival.  Another  computer  program,  MICE  II  ( 
the  flissle  Intercept  Capability  Evaluation  Program)  ,  will  be 
used  to  compute  the  survivability  of  the  aircraft  on  the 
same  flight  path  against  a  typical  short-to-medium  range 
surface-to-air  missle  (SAH)l 

The  DOD  specifies  the  use  of  P001  and  HICE  in  all 
nonnuclear  survivability  assessments  in  MIL-STD.-20  69, 
REQUIREMENTS  FOR  AIRCRAFT  NONNUCLEAR  SUR7 IVABILITI  PROGRAM, 
24  August  1981. 


76 


II.  PRC3LEK  DEFINITION 


|  A.  You  are  going  to  conduct  a.  survi virility  assossme-rz  of  a 

familiar  Naval  aircraft,  stown  in  Figs.  1  and  2,  on  a 
typical  attack  mission  to  destroy  tne  bridge  snown  in 
Fig.  3. 

|  E.  The  class  will  be  divided  into  groups  of  four  (4),  with 

two  members  in  each  group  on  the  BLUE  tear  and  two 
members  on  the  P.SD  team. 

C.  Each  team  will  use  POO  1  and  NICE  II  to  determine  the 

J  survivability  of  the  aircraft  on  the  class  problem  scen¬ 

ario,  as  follows: 

1.  Each  team  will  generate  a  flight  a  flight  path  to  the 
bridge  according  to  the  rules  of  the  scenario  given  in 

I  Section  IV.  Keep  this  path  a  secret. 

2.  Each  team  will  also  select  the  locations  of  six  AAA 
emplacements  and  one  SAN  emplacement  that  will  defend 
against  air  attack.  Locate  the  weapons  according  to 

I  the  order  of  battle  given  rn  Section  IV.  Keep  these 

locations  a  secret  a^so. 

3.  Each  team  will  conduct  an  attack  against  the  other 

team  in  the  following  fashion:  The  two  teams  in  each 

i  group  will  conduct  a  trade  of  offensive  data  files. 

That  is;  RED  teams  flight  path  will  go  up  against  the 
BLUE  teams  defensive  positions  and  BLUE  teams  flight 
path  will  go  up  aginst  RED  teams  defensive  positions. 


77 


250 


III.  SCENARIO  DESCRIPTION 


A»  This  Is  v-urexy  cor  ir*siira^Lj.oiidj.  our^GSv.^  is 

not  based  or  any  actual  or  planned  combat  attack  situ¬ 
ation.  The  target  site,  order  of  battle,  ana  flight  path 
and  weapon  delivery  parameter  limits  have  oeen  chosen 
only  to  provide  guidelines  for  the  class  problem.  As  such 
realism  nas  been  Introduced  ter  hue  pxayers  as  possut^e 
while  retaining  an  unclassified  scenario. 

b.  Your  target  is  the  bridge  shown  in  Fig.  3  located  at  : 

1  —  14,00  0  mtrs 

Y  7, 220  mtrs 

Z - —  20  mtrs 

Heavy  military  supply  traffic  has  been  reported  in  this 
area.  Your  mission  is  to  destroy  this  vital  supply  link. 

C.  The  following  order  of  battle  has  been  gathered  from 
intelligence  reports  of  the  target  area: 

SAM  -  one  site  in  the  vicinity  of  the  target 

AAA  -  12)  type  1  mode  1 

(2)  type  2  mode  1 

(1)  type  3  mode  3 

(1)  type  3  mode  4 

(1)  type  5  mode  3 

**NOTZ**  Gun  types  and  their  relationship  to  AAA  and  the 
SAM  type  will  be  discussed  in  class. 

D.  The  SAM  threat  requires  that  the  inbound  approach  to  the 
target  be  made  frem  the  west  at  low  level.  A  pop-up 
maneuver  is  required  to  visually  identify  the  target 
followed  by  a  dive  bombing  run  to  weapon  release.  The 
aircraft  ordnance  consists  of  MX82  500-pound  Snakeeye 
bombs.  Egress  must  be  made  either  to  the  north  or  south, 
depending  upon  individual  strategy. 
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E.  The  following  list  of  scenario  limitations  to  be  used  in 
the  development  of  your  strategy: 

1.  Aircraft  speed  limitations 

a.  minimum  (stall)  -  90  a/s  (175  knots) 

b.  maximum,  with  bombs  -  260  m/s  (505  knots) 

c.  maximum,  bombs  released  —  310  m/s  (603  knots) 

2.  Aircraft  altitude  limitations 

a.  prior  to  pop-up 

1)  .  max  —  457  atrs 

2)  .  min - 60  mtrs 

b.  after  pop-up 

1)  .  max  —  2050  atrs 

2)  .  min - 60  mtrs 

3.  Maneuvering  —  will  be  limited  by: 

a.  thrust 

b.  speed  brake  size 

c.  aircraft  "g"  loading  — 

the  shorter  the  leg  distance 
the  greater  the  restriction  on: 

1) .  amount  of  turn  OR 

2)  .  airspeed/altitude  changes 

♦♦NOTE**  Remember  the  following  rule  of  tnumb  —  The  greater 
a  change  in  altitude  the  closer  together  minimum  and 
maximum  allowable  velocities  get. 

4.  Pop-up  maneuver 

a.  max  allow  dist  (from  tgt)  to  pop-up  —  6000  mtr 

b.  minimum  acceptable  pop-up  altitude  -  1000  mtr 

5.  Ordnance  delivery 

a.  boresight  dive/glide  only  type  acceptable 

b.  dive  limitations 

1)  must  last  —  2.33  sec  (606  mtrs  at  260  knots) 

2)  heading - must  be  within  5  degrees 

♦♦NOTE**  The  closer  the  attacx 

is  pressed  to  the  target, 
the  more  precisely  placed 
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the  tomb  release  point  mast  be. 

c.  bo  nr.  release  ranges 

1)  max  allowable  from  tgt  —  1003  mtrs 
2}  mm  i abi.e  from  cgc  mcrs 

d.  bomb  release  altitude  limitations 

1)  max  allowable  —  2000  mtrs 

2)  min  allowable - 100  mtrs 

F.  Weapons  emplacements 

1.  order  of  emplacement  fixai  by  program  and  goes 

(2)  type  1  mode  1 

(2)  type  2  mode  1 

(1)  type  3  mode  3 

(1)  type  3  mode  4 

a  seventh  type  5  mode  3  battery 

is  always  fixed  at  location 

X=12,800  mtr/Y=7,500  mtr  (near  bridge) 

2.  neither  of  the  type  3  batteries  may  be  placed  closer 
than  3000  mtrs  from  bridge. 

3.  (1)  type  5  SAX  battery  may  be  put  anywhere 
east  of  the  6000  mtr  X  location 

G.  Locate  the  AAA  &  SAM  batteries  (constrained  by  the  above 
conditions)  to  defend  the  bridge. 

H.  Develop  a  flight  path  originating  at  an  entry  point  any 
where  near  (but  not  ’on*)  the  western  boundary,  attack 
the  bridge  and  exit  the  map  anywhere  near  (but  net  'on') 
the  northern  or  southern  boundaries. 

I.  day  the  force  be  with  you. 
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IV.  PROCEDURES  FOR  OPERATING  IBMPIP 


A.  In  gross  terir.s,  the  following  will  take  place: 

1.  a  computer  session  with  Ibmpip 

2.  submission  of  your  data  to  (2)  batch  programs  to 
determine  your  success 

3.  making  a  hard  copy  of  your  map  from  the  Tektronix 
IEK613  terminal 

3.  The  following  equipment  is  required:  a  graphics  station 
consisting  of: 

1.  an  I3M3277  alpha-numeric  terminal 

2.  a  Tektronix  TEK618  graphics  screen 

3.  an  IBM  cursor  control  joystick 

Many  will  be  familiar  with  the  above  from  working  with 
the  ' DISSPLA"  programs.  Additional  information  will  now 
be  supplied  to  enable  utilization  for  this  interactive 
graphics  program. 

C.  Preflight: 

1.  ensure  graphics  terminal  switched  on 

2.  joystick  set  up  —  ensure  all  three  (3) 

blue  rocker  switches  are  inthe  (NORMAL)  position 

3.  the  3277  terminal  should  always  be  'power  on' 

—  if  not  —  do  so  now  and  set  screen 
intensity  to  your  satisfaction 

D.  Program  execution 

Refer  to  Appendix  A  to  link  up  to  Aero  Disk,  run  IBMPI? 
and  generate  a  flight  path.  Appendix  B  shows  the  sequence 
for  gun/missle  positioning.  The  black  arrow  heads  are  user 
entered  commands  or  responses. 

~  The  following  notes  amplify  certain  aspects  of  the 
procedure.  Read  the  Appendices  and  refer  to  these  notes. 

GUNS:  0=DISK  FILE;  1=1ERMINAL;  2=PRESET 
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Do  not  choose  DISK  FILE  until  you  have  created  one  by 
utilizing  TERMINAL  to  input  some  gun/missle  locations.  la; 
locations  entered  at  TERMINAL  will  on  your  disk  as  i ;;  1-  LOC 

.1 1 . 

AIRCRAFT  MILESTONE  INPUT:  0=DISK  1=TERMINAL 

For  the  same  reason  as  above  do  not  choose  DISK  until 
you  have  created  a  rile  by  utilizing  TERMINAL.  lour  flight 
path  will  be  written  on  your  disk  as  PTS  LOC  A1. 

ERROR  CHECKINS:  0=NO  CHECKING  1  =  CHECK  FOR  ERRORS 

Recommend  only  using  error  checking  when  entering 
aircraft  flight  path  at  terminal.  It  will  erroneously  acti¬ 
vate  on  good  data  points  being  read  in  from  the  data  file 
you  will  create. 

FLIGHT  &  GAME  PARAMETERS  1= DEFAULT  2=USER  INPUT 
For  class  competition,  select  1. 

VILLAGE  DRAWN  0  =  NOT  DRAWN  1  =DR ANN 
User  preference. 

ENTER  AIRCRAFT  MILESTONES 

Look  at  bottom  right  hand  corner  of  the  IBM  screen.  You 
will  see  MORE...  This  is  a  prompt  for  you  to  hit  CLEAR  key. 
When  you  do, 

1.  The  border  of  the  map  on  the  graphics  screen  will 
flash  and  the  red  light  on  joystick  control  will  illu¬ 
minate. 

2.  You  may  or  may  not  see  cross  nairs  on  your  graphics 
screen.  Move  the  joystick  around  and  try  to  find  it. 
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3.  If  the  cross  hair  is  to  faint#  turn  CLOCKWISE  ta« 

wP.ITE  THROUGH  INTENSITY  knob  under  the 

screen-  Not  too  much.  ... 

4.  Ir  the  cross  hair  is  too  intense  it  will  wipe  a  bright 
band  across  map  messing  it  up.  Turn  COUNTERCLOCKWISE 
the  WRITE  THROUGH  INTENSITY  knob,  until  it  stops. 

5-  The  cross  hair  may  drift  slowly  without  your  moving 
the  joystick.  Two  little  slider  switches,  under  and 
to  the  right  of  the  joystick  are  used  to  null  out  this 
drift.  Hove  the  obvious  one  until  unwanted  motion 
stops. 

6.  To  enter  a  point:  Manipulate  the  joystick  until  the 

cross  hairs  are  somewhere  near  tae  western  border.  The 

number  keys  on  top  of  the  keyboard  are  the  ones  used 
to  enter  a  data  point.  Press  any  key  greater  than  4.  A 
dot  will  appear  and  then  the  border  around  the 
altimeter/airspeed  bar  will  flash,  prompting  you  to 
move  tae  crosshair  over  there.  Do  so. 

The  vertical  cross  hair  is  to  be  set  on  your  desired 
airspeed  (as  read  from  the  tick  marks  on  the  bottom),  slow 
on  the  left,  fast  on  the  right.  Altitude  is  determined  by 
the  horizontal  cross  hair.  When  satisfied,  press  a  number 
key  greater  than  4.  A  dot  will  appear  and  the  border  will 
flash  (if  all  goes  well)  prompting  you  to  return  to  do  the 
next  point. 

If  all  does  not  go  well,  the  skinny  rectangle  tc  the 
right  of  the  graphics  screen  flashes  and  you  will  get  an 
error  message.  A  list  of  all  possible  error  messages  is  now- 
provided.  Read  them  and  the  suggested  user  responses. 

*****************  AIRCRAFT  ***************** 

MAXIMUM  ERAKING  EXCEEEED 

The  aircraft  unable  to  slow  down  to  chosen  speed 
increase  speed. 
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MAX  G  EXCEEDED 


Pare  —  usually  aircraft  is  not  able  to  handle  G-loai  of 
turn  —  try  slowing  down  a  little. 

MAX  THROST  EXCEEDED 

The  airspeed  chosen  is  too  fast  —  slow  down  a  little. 
♦♦NOTE**  When  maneuvering  near  the  target,  the  distance 
between  MAX  BRAKING  and  MAX  IHSOSX  can  get  to  be  small.  If 
unable  to  find  an  airspeed  between  them,  next  try  changing 
altitude.  If  still  unable  to  fit  between  the  liniters,  you 
will  have  to  back  up  and  enter  a  new  X-X  location  and  try 
again. 

AIT  TCO  LOW 

Self  explanatory. 


AIT  TCO  HIGH 

Self  explanatory 

POP- OP  TCO  LOW 

Self  explanatory. 

BMB  DR CP  LOW 

Self  explanatory. 


BMB  DROP  HI 

Self  explanatory. 

STAIL 

Bare  --  try  increasing  airspeed. 
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HDG<5  DEG  TO  TGT 

•lust  reenter  the  X-Y  point.  Do  a  better  job  cr  patting 
point  on  bomb  aim  line. 

FINAL  BUN<2. 33  SEC 

Must  reenter  the  X-Y  point  —  put  it  further  down  the 
aimline  toward  the  target. 

NO  HORIZONTAL  MOTION 

Rare  You  didn't  Hove  far  enough  aw ay  from  last  entered 
point.  Reenter  a  new  X-Y  point. 

MAX  LIFT  EXCEED 

Extremely  rare-  Manuever  too  severe.  Try  adjusting 
speed  downward  or  moving  altitude  closer  to  the  last  one 
entered. 

***** ************  GUNS  ***************** 

i 

TOO  CLOSE  TO  IGT 

Type  3  guns  not  far  enough  out  from  bridge.  —  Reenter. 

****************  MISSLZ  ***************** 

X  COORDINATE  LESS  THAN  6000’ 

Missle  is  too  close  to  the  western  border.  Move  to 
east  of  6 000  mtr  line. 

If  you  make  an  error  and  do  not  throw  away  the  X-Y 
point,  the  altimeter  border  will  flash  and  you  may  make  you 
airspeed/altitude  corrections.  If  you  choose  to  correct  the 
X-Y  point,  the  map  border  will  flash  and  you  must  then  go 
over  and  reenter  the  point,  see  the  altimeter  flash  and 


return  to  it  to  reenter  the  associated  altitude/airspeei 
combination. 

If  ail  goes  well,  no  error  is  made  and  the  user 
proceeds.  Once  the  second  point  is  entered,  the  pro  gran  ••ii... 
connect-the-dots.  Observe  Fig  4. 

As  you  progress,  your  flight  path  may  resemble  rig.  5. 

At  this  time  note  the  bold  rings  on  the  map. 

1.  The  outer  ring  is  used  for  aircraft  pop-up.  Once 
inside  the  ring,  you  may  at  any  time  commence 
pop-up. 

2.  Ihe  inner  ring  is  used  for  placing  gun/missle 
batteries  and  is  explained  elsewhere. 

Observe  Fig.  6.  In  the  artificial  case  presented  here, 
the  user  knows  where  the  guns  are  and  is  maneuvering  around 
them  to  a  thin  spot  in  the  defense.  Up  to  point  11,  the 
aircraft  is  maintained  at  a  low  altitude.  Note  where  the 
dots  are  on  the  altimeter  ber. 

Observe  Fig.  7.  Ihe  user  has  popped  up  between  points  12 
and  13.  Observe  the  lone  altitude  dot  at  about  1250  mtrs 
altitude.  The  user  is  ready  to  take  aim  as  he  is  about  to 
input  point  13.  Number  1  key  is  the  aim  button.  Press  it  for 
both  the  X-Y  point  and  the  associated  altitude.  A  dotted 
line  will  appear.  This  is  the  line  you  must  be  on  to  release 
the  tombs. 

Observe  Fig.  8.  Point  14  is  entered  using  Number  2  key. 
Bombs  Away.  press  the  Number  2  key  for  both  the  X-Y  point 
and  the  associated  altitude.  Note  the  3  dots  at  about  800 
mtrs  —  it  took  3  trys  to  get  the  airspeed  right.  It  is  now 
time  to  separt  Dodge  City.  Point  15  is  entered  using  Number 
4  key.  Again  ,  as  always,  do  this  for  both  the  X-Y  point  and 
the  associated  altitude.  Normal  termination  of  the  program 
occurs. 

Summary  of  the  special  keys: 

1=take  aim 
2=  bomb  release 


3=abnormal  termination 
4=ncraal  termination 
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♦♦NOTE**  Abnormal  termination  is  used  to  go  bach  to  a  roi;;c 
on  the  iligh  path  and  start  over. 

♦♦NOTE**  The  significance  of  these  four  (4)  keys  only 
applies  to  aircraft  milestone  entry.  Any  numbered  key  is 
appropriate  for  entering  gun/missle  locations. 

AKE  ECU  FINISHED  WIZH  THIS  FLIGHT  PATH:  0=N 0  1=YES 
Answer  with  1/  the  0  isn't  working  at  present. 

OUTPUT  FILE:  0  =  NO  OUTPUT;  1=OUTPUT 

In  order  to  submit  your  data  to  either  P001  or  MICE  you 
must  have  generated  both  a  guns/missle  AND  a  flight  path 
file.  Until  both  are  done  or  when  experimenting  without  a 
desire  for  survival  statistics,  select  0=NO  OUTPUT  and 
I3MPIP  will  terminate. 

EXTENDED  OUTPUI:  0=NOT  WANTED:  1=2XT2NDED  OUTPUT 

Select  0;  there  is  a  bug  in  selection  1  which  does  not 
affect  the  operation  of  the  game. 

MISSLE  TYPE  BETWEEN  1  AND  7 

Select  5  only;  the  performance  data  on  the  other  missies 
are  not  contained  in  this  instructional  package. 

ENTEH  YOUH  USES  ID  NUMBEE:  —  WITHOUT  THE  "P" 

The  questions  ycu  are  now  answering  are  for  the  auto¬ 
matic  generation  of  JCL  (Job  Control  Language)  cards  that 
will  be  inserted  into  the  P0Q1  DATA  A1  and/or  the  MICE  DATA 
A1  files  for  submission  to  batch  proccessing. 
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At  this  time  refer  to  Appendix  B  for  procedures  on 
entering  gun  emplacements. 

**  CHOICE  1  NEGATES  GOING  TC  ALTIMETER 

The  advantage  of  choice  1  to  the  user  is  the  convenience 
of  not  going  over  to  the  altitude  bar  for  the  guns/missle; 
each  time  a  battery  is  emplaced,  the  map  border  will  flash 
again,  prompting  tne  input  of  the  next  battery.  Should  2  be 
selected,  there  is  no  program  limit  on  how  high  a  gun  may  be 
emplaced.  Consult  with  the  instructor  to  determine  Lis 
wishes. 

ERROR  CHECKING:  0=NO  CHECKING,  1=CHECKING 

You  have  all  ready  become  acquainted  with  the  possible 
gun/missle  errors.  It  is  recommended  that  error  checking  be 
not  selected,  for  the  following  reason.  As  earlier 
mentioned,  error  checking  will  trigger  on  flight  path  data 
being  read  in  from  a  data  file.  At  present,  once  guns/missle * 
are  entered,  the  user  must  still  either  generate  a  flight 
path  at  the  terminal,  or  read  one  in  from  a  data  file  in 
order  for  program  to  progress  normally. 

ENTER  GON  LOCATIONS 

Look  at  the  bottom  right  hand  corner  of  the  IBM  screen. 
You  will  see  MORE...  You  are  being  prompted  to  hit  the  CLEAR 
key.  At  this  time,  the  map  border  will  flash  and  the  cross 
hairs  will  appear  again. 

At  this  tine  look  sequentially  at  Figs. 
9, 10, 11, 12, 13, 14,615.  The  fixed,  type  5  battery  is  all  ready 
in  place.  In  each  succeeding  frame,  another  battery  is 
emplaced. 


Now  note  the  inner  cold  ring.  This  is  the  3G00  Jtr 
limit,  outside  of  which  your  type  3  weapons  just  he 
emplaced.  Note  Figs.  1h  and  15. 

%hen  tne  hast  user  derrnea^^e  hat  eery  is  enpliceu,  c*._ 
ISM  screen  will  iiluainate  with  the  roilowing  message:  ENTER 
MIS5LE  LOCATION  along  with  the  now  familiar  MORE...  Again 
hit  the  CLEAR  key  ana  enter  the  aissle  location.  Cbserve 
Fig.  16  carefully,  as  the  missle  symbol  is  not  large. 
(X=8 ,500,Y=9,5QQ) . 

At  this  point  you  will  be  prompted  witn  ENTER  AIRCRAFT 
MILESTONES.  Proceed  as  discussed  under  Aircraft. 


E.  AT  COMPLETION  OF  SESSION 

When  you  are  all  done,  and  I3MPIP  is  terminated  you 
should  have  a  GUN  LOC  file  and  a  PTS  LOC  file  residing  an 
your  A1  disk.  If  you  are  not  ready  at  this  time  to  conduct 
file  exchanges  with  the  opposing  team  you  release  the  222  S 
disk  with  the  command: 


RSL  222 


then  log  off  or  whatever. 

F.  HOW  TC  MAKE  A  HARE  COPY 

To  make  a  hard  copy  of  your  map,  reach  over  and  hit 
the  HARD  C02Y  button  on  the  graphics  screen.  A  loud  racket 
will  indicate  which  printer  is  making  the  copy.  Most  of  the 
graphics  screens  indicate  to  which  printer  they  are 

attached.  You  may  have  to  turn  on  the  printer  as  they  are 

noisy  and  are  frequently  left  off  until  needed.  If  you  turn 

the  printer  on,  give  it  30  seconds  to  1  minute  to  warm  up  or 
copy  quality  will  be  non-existant  or  severely  degraded. 
Darkness  of  the  copy  is  controlled  by  the  HARD  COPY 

INTENSITY  knob  under  the  graphics  screen.  CLOCKWISE 
increases  darkness. 

G.  PRIOR  TO  EXCHANGING  FILES 
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Exchanging  files  is  the  method  of  attacking  or  defending 
against  the  opposor.g  team.  If  a  file  is  sent  to  another  user 
and  that  user  has  a  file  ty  the  same  name  the  incoming  file 
will  overwrite  the  existing  file  destroying  ti_  existing 
file  unless  precautions  are  taken. 

The  following  is  recommended;  RED  team;  rename  your  pts 
loc  file  PISH  LGC  BLUE  team  rename  your  pts  ioc  file  PTS3 
IOC 

This  can  be  done  inside  FUST  in  the  following  manner; 
Place  cursor  beside  PTS  IOC  and  type 

RENAME  /  PTSR  =  = 

and  hit  enter.  (The  BLUE  team,  of  course,  would  use  PTS3)  Now 
your  file  is  protected. 

(BLUE/RED)  team;  SEND  your  (FIS3/PTSR)  LOC  file  to  the 
opposition.  If  the  respective  teams  do  not  have  a  SEND  EXEC 
file,  one  may  be  obtained  from  the  Aero  Disk.  Link  up  to  the 
disk  using  the  previous  instructions.  When  linked,  issue  the 
following  command, 

SEND  (you  user  number)  SEND  EXEC. 

Example;  SEND  2408p  SEND  EXEC 

Don't  forget  to  release  222  when  done.  For  instructions 
on  how  to  use  SEND,  merely  type  SEND.  It  will  also  tell  the 
receiver  how  to  load  the  PTSx  LOC  file  sent  to  them.  To  load 
this  SEND  EXEC  on  your  disk  issue  either  of  the  following 
commands ; 

RDR 

DISK  LOAD 

Once  the  files  are  received,  rename  them  back  to  PTS 
LOC.  Link  to  the  Aerc  Disk  using  the  described  procedures. 
Run  IEMPIP  and  select 

0=DISK  for  guns  0=DISK  for  aircraft 
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► 


> 


» 


> 


> 


» 


with  Eases  CHECKING  off.  it  the  completion  of  your  ran 
the  PO0 1  and  MICE  printouts  will  report  on  how  veil  toe 
oppositions  aircraft  did  against  yoar  defense.  Ire  ct  ren¬ 
te  us  will  (hopefully  not  gleefully)  report  to  yea  ho;;  "ell 
your  flight  fared  against  their  defense.  Good  Luck. 


* 


APPENDIX  3 

D2RI7ATIC 3  OF  2Q0A1IQNS  USED  IN  TFXT 
From  [Ref.  3],  i  tstartaneou  s  velocity  is  given  as; 


\r  -  cU 

at 

and  instantaneous  acceleration  is  given  as; 

» 


If  the  first  aquation  is  solved  for  it  and  substituted  into 
the  second  equation,  the  following  results: 


ads  s  \mAv-* 


If  the  acceleration  is  presumed  constant  over  finite 
distances,  the  above  equation  may  be  integrated; 

3  'x'we*/ 

a  [  <is  =  |  v-4\r 

0  Yuo 

2.  a 

~  VHE.W  ”  Vouo  /  £S 

ACC.=  (vEL6N  —  VEU)04C:fc  2,}  / ^ 
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•  < 

and  integrate  to  jet; 

ft  ( 

Ah  =  v«dJb 

5  t  11 

i  As  =  \  (v0UJ  f 

c  c 

ft  4 

S  a  Vauj-fc  +  -^at2, 

ft  4 

DE.LX  =  UOLD  *.  DELTEE  +*  .S*  UOCTT  *  DELTEE  XXZ 

ft  4 


****  ***********************  ******************  ************** 

Reaching  hack; 

^TEHP  f 

j  dv  =•  a(  Ak 

VouD  d 

Vtemp  =  V6LD  +-air 


ft  4 


ft  4 


ft  4 


UTEMf>=  UCID  -V-  UDOT*  DELTEE 


»  4 
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**************  ******************************************* 


from  [Eef.  4],  for  a  steady  coordinate!  tarn; 

TURN  RATE  (Aec^l  sec.)  —  |Q9{  4tm  <j>  jd) 

V 

(/^)=fcank  angle  (degrees* 

V  =velocity  (knots)  TA3 

Convert  the  turn  rate  to  radians/sec: 

TURNRA.TS  (r/s)  =  tagl  -krufe)  2.TT 

V"  360 

Convert  V  (knots)  to  V  (meter s/sec)  : 

TURN  RATE  (?h)  -  IQ**  l  </(r^  4  ZTT 

(V-  1.9438)  3^G 

Solve  for  angle  of  bank: 


</Cr)  =.  dU  /  TURNRATE(r4)«  V(m4) 

9.7958 


PWNEW  =  ATTAJ4  (  TURN  RAT  XVELOT/  9.795‘S) 


***************************  ********************************* 


Fro®  £Re£.  5],  the  pressure  ratio  as  a  function  of  \ra- 

ture  and  altitude,  for  the  model  atmosphere  is: 


J 


T0  v  (dT/4H)W 


where 


(kfa 

-aT/dH 


p  (naught)  ^standard  sea-ievel  atmospheric  pressure 

dT/dH  =tempera ture  lapse  rate  in  the 
troposphere 

H  =geopotential  altitude  (assumed 

egual  to  geometric  or  , 

tapeline  altitude  for  low  altitudes) 

T  (naught)  =standar  d  sea-level  atmospheric 
temperature 

G  =acceler ation  due  to  gravity 
(assumed  to  be  constant) 

R  =universal  gas  constant 


The  temperature  profile  for  the  same  model  atmosphere  is: 

T  =  To  <-  (<Jt/jh)h 


Applying  tae  perfect  gas  law  to  get  density  profile: 


['*  (£)&)] 

/  GA? 

=H£)W]U“" 


The  temperature  lapse  rate  in  SI  units  is: 


-3 

sL  =■  -  <2.5-  KiO  °K/m 

dH 

Gravitational  acceleration  in  SI  units  is: 


The  universal  gas  constant  is: 


28? 


N-m 
leg  -  °K 


Thus ; 


G/R 

-di/aw 


=  ^.2rf 


and  sea-level  standard  air  density  is; 

N-  s1 


P* 


=  i.azs* 


100 


Figure  C. 1  The  Map  Coordinate  System. 


Figure  C.2  The  Aerodynaaicist*s  Coordinate  Syste 


The  following  de velopment  is  taken  from  [Ref.  6].  7 
equation  (linear  momentum  =  applied  forces)  for  an  a.i 
with  a  constant  mass  (fuel  burn  not  accounted  for)  ; 


or  the 


m  <We 

at 


—  mq  4-  F<a_  +-  Fjt 


m  =  mass  of  the  airplane 

[^2) -the  acceleration  of  the  aircraft  in 
the  earth-fixed  coordinate  system 

mg  =  force  applied  due  to  gravity 

fa  =  £orce  applied  by  aerodynamic  loading 

Ft  =force  applied  by  thrust 


This  equation  is  transform aed  from  the  earth-fixed  coordi¬ 
nate  system  to  a  coordinate  system  attached  to  the  aircraft; 


tf\  M*.  =  m 

a  k 


/avk 

\  at 


4-  (OX  VdL 


(^-acceleration  of  the  aircraft  in  the 
^  aircraft-fixed  coordinate  system 

(  (*)  )  =  rotational  velocity  of  the  aircraft-fixed 
coordinate  system  with  respect  to  the 
earth-fixed  coordinate  system 


If  the  above  equation  is  expanded  into  its  orthogonal  cci.o- 
nents : 


=  VYl  (  -V^R  +VVJ))  =  TYlcjx  tF4  +  FL 

*  X, 

mv£  -  m  (vi  +or  -vw~  p)  =.  4-  Fa^ 

m\A^n  m  (w^-jll Q  -*-vip)  =.  mcj^  f  + 

The  above  is  termed  the  aircraft  equations  of  motion.  In  the 
aircraft-  fixed  coordinate  system,  the  components  are  shown 
in  figure  C.3  The  next  three  illustrations  show  the  trans¬ 
formation  of  earth-fixed  linear  velocities  and  accelerations 
to  aircraft-fixed  linear  velocities  and  accelerations: 
Finite  rotational  displacements  do  not  act  as  vectors,  hence 
the  requirement  for  the  order  of  the  above  rotations.  This 
is  demonstrated  in  figure  C. 7  Iransf ormation  of  earth-fixed 
rotational  velocities  into  aircraft-  fixed  velocities 
involves  the  following  mapping. 


to  =  y  -v-  4  +^6 


=■(  4rans  fern.  j=^> 


P  4-  Q 


In  terms  of  unit  vectors,  ((a))  earth-fixed  is  presented; 


CD 

e 


C  A 

V  Ki  + 


looking  at  figure  C.3,  it  is  seen  that; 


-sin 

CL 


Vo.  23  ^TIPPED  OUT  OF 

HORIZON  PLANE 


JULol  =  JU3 

VK  =  cos  ^  ^  +  sin^Wj 
~  -~s\n  p(  V3  +  cos  ^  W3 

JUo.  *  A3 

♦ 

Vo_  =■  cos  ff  V3  +  *>vn  ft  v% 
W£_  -  -sin^  V3  4-  cos  /  wj 


Figure  c.6  Third  Rotation. 


I 


I 


+•  ®)00  abooV  Y 


L 


Figure  C.7  Finite  flotations  Do  Hot  Act  As  Vectors. 


furthermore;  looking  at  C.8, 


A 


k 


3 


A 

+■  cos  ka_ 


and  finally,  looking  at  the  same  figure. 


J3 


/\ 

k 


a. 
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Substituting  into  (  4)  )  in  terms  of  the  aircraft  dirbctioi 
vectors ; 


co  =  -  sm©LoL+  c.os©(s!ncfjOL-Mios</k<1>')  ^  +■ 

(  cos</  jo.  -  sin  $  V )  £  +  $  La. 


and  this  must  egual 


<*>  =  P'u  +  QjV  v  R  ^ 


Therefore,  solving  for  components. 


O  0 

P  ~  $  —  sin  (&) 

0=  ccsC^)©  +•  cos fe )  sm  (@0  Cj) 

6  ^ 
R  «  —  Sir\(gO  e  4-  coste)  COS 


***  *  *  *  *  * 
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APPENDIX  D 

CONSOLIDATED  COMMON  LISTING 


CCMMO N/A BC  1/WX 

;  1000) 

,  WYl 

:  loooi 

,  K  Z 

HO 

1000 

,  W7  1 

1000 

,  W  H 

WH 

1000 

,  HP  J 

1000) 

,  HR 

HG  i 

1000 

.1(1 

r ooo) , 

ICI 

CC  MMC  N/ABC2/XN  EW, DSLX ,  XTEMP, XOLD, 
YNEH,DELY ,YTEMP ,YOLD, 
ZNEH,DEL2 ,ZTEiiP,20Li) 


CO  MMON/ABC  3/VEIGN, VELOT, VEIOO,N, 
ONEK  ,OTEMP,OOLD, 
VNEW,VT£M?,YOLD, 

H  NEW, STEM P, WOLD 


1000) 

1000) 

1000' 


/ 

t 

t 


CCMMO  N/A3C  4/AG1,AH1,AI1,AJl,AJ2 
CCMMGN/A3D  1/AA1,  AB1,  AC1 

COMM ON/ABD2/V STALL, YM  AX, VMAX1, VMAX2, DEL TEE, DELTV,  DZLTZ 

CC  MMO N/A  3D  3/P  SIEOT ,TH  EDOI ,  PHIDOT 

CCMMO  N/A  3D  VPS  INEH,THENEN, PHINSW, 

*  PSICLD,TH  EOLD, PHIOLD 

CO MMO N/A 3 F 1/01 ,71, HI , 02, V2,W2,U3, V3, K3 

CCMMO N/A 3 F 2/ OD  1,V£1,HD1, 0D2, VD2,»D2, UD3,VD3, ND3 

CO MMG N/A3 F 3/0  AC, VAC, H  AC, ODOTAC,  YDOTAC, WDOIAC ,P, Q , E 

CC  MMCN/LOC/X 1,Y1,Z1,V 1 , LTR, LTR2 

COMMON/MN/  I3A0D 

CO  MMO  N/MN 1/MIN  X,M AXX ,  MIN Y, MAX Y, MINX  1 , MAXX1 , MINX2, MAXX2 
CCMMCN/NAM/INAM1 (2)  ,1 NAM2{2)  , IONR, IANR, IDEST 
CCMM ON/OPT/I GO N, IPNCH , IE XT, IS  AM, IMP, KER, IMP Z 
COMMO  N/PAR2/XG0N  (7)  ,  IGON  (7)  ,ZG0N(7)  ,  XSA  M,  YS  AM  ,  ZS  AM,  GR  (  7) 


» 


» 


» 
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COMMON/P  AS  VA?FMAX,HTilIH>HTtUX.  POPilI  N,  3  A  ALT , 
*  3 S  f  ill N ,  3 R H :1  A X ,  SAD:OD£G,dISTOFT 


C  C  M  M  0  N/T  A  F  /I A  ?.  G  X  ,  T  A  3  G  Y 


APPENDIX  E 


EXECS  USED  TO  DRIVE  FORTRAN  PROGRAMS 


c»* *************** •***•»»»* •«*••*•*•••••••*••*•*••••••••»••«•*••••*•** 

C  IBMPIP1  EXEC  il 

c  THE  FOLLOWING  EXEC  DSI7ES  IBHPIP1  --  D.A.M.  17MAR84  - 

c***  *•*••**  ***************  *******************  ***** ••***•**•*••••* ••  *** 


CTHACE  EHR 
EXEC  GHAF77 

FILEDEF  09  DISK  PICTOB  DATA  81  {RECFM  F  LRECL  80 

FILSDEF  10  013  K  GUN  ICC  A1  (RECFM  F  LRECL  80 

FILEDEF  11  DISK  PTS  LCC  A1  (REC7M  F  LRECL  30 

FILSDEF  16  DISK  PAR  SAT  A1  jEECFM  F  LRECL  80 

FILSDEF  18  DISK  P001  DATA  A1  (RECFM  F  LRECL  80 

FILSDEF  17  DISK  MICE  DATA  11  (RECFM  F  LRECL  80 

FILSDEF  19  DISK  TEMP  DATA  A1  (S ECFM  F  LRECL  80 

LOAD  IBM PIP  1  (START 


AT  HECF! 
A 1  RECFi 
A1  RECFI 


<;*••••••••••••*••*«*••*•••••••***«•**•*••*••*•••••••*••• 

C  IBHPIP2  EXEC  A 1 

C  THE  FOLLOWING  EXEC  BAS  OSED  TO  DRIVE  IBMPIP2  —  D.A.M. 


STR ACE  EHR 
EXEC  GHAF77 

FILSDEF  09  DISK  PICTOR  DATA  A1  (RECFM  F  L3ECL  30 
FILEDEF  10  DISK  GUN  LCC  A1  (RECFfl  F  LRECL  30 

FILSDEF  11  DISK  PTS  ICC  A1  jfiECFM  F  LRECL  130  3 

FILEDEF  16  DISK  PAR  SAV  A1  (RECFM  F  LRECL  80 

FILED E-F  18  DISK  P001  DATA  A1  (fi ECFM  F  LRECL  30 

FILSDEF  17  DISK  MICE  DATA  A1  (RECFM  F  LRECL  80 


LOAD  IBHPIP2  (START 


JHECFM  F  LRECL  30 

RECFM  F  LRECL  130  3LOCK  130 

RSCFM  F  LRECL  80 

(RECFM  F  LRECL  80 
A1  (RECFM  F  LRECL  80 


17MAR34  — 


£**************************  •••••*••**•• •**•••*•••••••• ••••••  •****• 

C  GRAF77  EXEC  A1 

C  THE  FOLLOWING  EXEC  LINKS  THE  USER  TO  THE  GRAPHICS  IMPLEMENTATION 
C  —  D.A.M-  17MAH84  — 

C«* ••*•**••***  •••*•***•*•••  **************** *********•*«**********«! 

STRACE  ERR 

C?  LINK  GHAP77  191  199  RH 
ACC  199  G 

GLOBAL  TXTLIB  MO 02 EE H  FORT30D2  GRAFLI3  CMSLIB  NO N IMS L 


APPENDIX  F 


CLEANED  UP  JOHNS  VERSION  IRMPIP 


C  MiXS  EBOGRAB  04/OCT/32  7ERSI0N 

C  CCNTSCLi  TH  2  EXECUTION  CF  THE  ENTIRE  ?  BOG  BAX . 

C  TEE  CU/CCT  7  EB  S  I C  N  15  23S2NTIALLi  EBIC  JOhNS • 

C  VIBSIC'J  «ITH  SOME  0S2B  FBI  EN  CLI S  ESS  FSAT'JBES 

C  ACCEC.  THE  AI3C5AFT  FLI GHTPA  Iti  GENERATOR  15 

C  UNCHANGED  PHCil  THE  JOHNS'  VERSION  AN  0  IS  KNOW* 

C  TC  «CSK  AS  THIS  IS  THE  VERSION  IS  JSE  31  PROF. 

C  BALL'S  3UB7I7A3I L17Y  CLASS.  --  D.  A.S.  16.1  ARiU 

C»« •«******• »**«**•*•««»»«»«*•*«•**»*»*«**»»*»•*««**«««»•****««« 

COBBON  /BN1/  Bl::X,aAXX,aiNY,SAXY,aiaX1,aAXX1,:iINX2,aAXX2 
ccaaoa  /lcc/  xi ,n,zi,n  ,itb, ltb2 

COBBON  /BN/  IEAU3 

COBBON  /PAa/  X  (200)  .1  (200)  ,2  (200)  ,HDG  (2  30)  ,CA (200)  ,  RA  (200)  , 

C03BCN  /PARI/  XDOI  (200)  .  LOOT  (230)  ,ZDCI  (203)  ,  .1SU.1,  .135 
COBBON  /FAR2/  T  (2CJ)  .XGUN  (7)  ,  YGUN  (7)  ,  EG  ON  ( 7)  .  XS  A  X  ,  X  SAB  ,ZS  A: 
COBBON  /OPT/  IGUN.lt  ..CH  .  IsXT  , ISAB  ,IB  E , K EH.  I.1PZ 
COBBON  /NAB/  INA21  (2)  ,  IN  A  .12  (  2  )  ,10  HR,  IANS,  IDE  ST 

BBR-0 
BNUB-0 
1(1)  *0. 

CALL  BEGIN 
CALL  SCENE  (0,0) 

BEHIND  10 

C  DHAH  THE  ? IX  EC  GUN  SITE  S  ENGAGEMENT  CIRCLE 


200)  , V  EL (2C0 
,  OS  A  a  ,  0  R  (7) 


CALL  GUNLCC  (XGUN  (7)  ,YGU!I  (7)  ,  GB  (7) ) 
IF  (IGUN.NS.1)  GO  TC  90 


C  — S~'— — >  R  - "0_ 'OSES  3EFIN3A2LS  G0:._SITES  FEO«  T 23.11  NAL 


CALL 

3BHBK 

(16) 

DC  50 

1=1,6 

10 

IE3B  = 

J 

IF  (I 

BPZ.NE 

.  1)  GO 

CALL 

XYPT 

ZGUN  (I)  =20. 

GO  TO 

30 

20 

CALL 

XYPT 

CALL 

ZVPT 

ZGUN(I) =Z1 

50 

XGUN  < 

I)  =X1 

YGUN  ( 

I)  =  Y 1 

C  IF  GON  TYPE  3,  CHK  FOE  J  XB  3EPA3AIIOS  FB  E3IDG3 
IF  (I.  GE.5)  CALL  GUSC3K  (XI,  11,1383) 


IF  (I.  GE.5)  CALL  GUSC3K  (XI,  Y  1, 1383) 
I?  (IE8B.EQ.0)  GO  TC  40 
CALL  EEBEK  (IIRfi) 


CALL  EBBEX  ( I  ERR ) 

_  GO  TO  10 

C  DBAH  GUN  SITE  AND  ENGAGEBENT  CIRCLE 

4Q  CALL  GUNLQC  (  XGU  N  |I)  .13  U  N  (I )  ,  GE  (I) ) 

50  HBITE  (10,550)  XGUN  (I)  ,  YGUN  (f)  ,  SGUil  (  I) 

C  READ  USES  DEFINEA  ELE  SAB  SITE  FB  TE33ISAL 

60  CALL  EBaBK  (14) 

IF  (IBPZ.NE. 1)  GO  TO  70 
CALL  XYPT 
Z SAB-20. 

GC  TO  30 
70  CALL  XYPT 

CALL  Z7PT 
ZSA3-Z1 
80  XSAB-X1 

YSA3-Y1  __ 

C  YE3IPY  SAB  SHE  AT  LEAST  6KB  FB  WESTERN  ECU  NEAR! 


CALL  3ABCEK  (XI  ,I2RR) 

IF  (ISBR.Nt.  0)  GO  TO  60 
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C  DBIH  S AN  SITE 

CALL  SONLCC  <  XS  AN  ,  YS  AM,  1  5  0.  ) 
MBITS  (10,353)  XSAM  ,  isi.1 ,  ZS  AN 
GO  TO  13C 


C  IGQN*2*">  READ  GON  SITES  FROM  DATA  FILS 

90  IF  (10  OX. HE.  3)  GO  TO  110 
DC  100  1=1,6 

100  BEAD  (  1  0,350)'  XGUN  (I)  ,TG  UN  (I)  ,ZGUN(I) 
READ  (  10,350)  XSAM,YSAM,ZSAM 

C  Dslif  GUN  SITES  AN  I  ESCAgImENT  CIRC1SS 


110  DC  120  1=1,6 

120  CALL  GONLCC  ( XGUN  (I)  , YG 0 M  (I)  , GE  (I) ) 
CALL  GtlNLCC  ( XS  AX  ,YS  AH,  1  50.  ) 

130  CONTINUE 

C  THIS  SECTION  ACCEPTS  THE  FLIGHT  3IIEST0NES 

PTFAC»  3.23086 
DGEAC=57. 29578 
CALL  SBflHK  (15) 

BEHIND  11 
140  aN03*MN0H*1 


C  3  EAD  HILZS TONES  FHCM  THE  DISK 

C - 

150  IF  (IMP.NE.O)  GC  1C  160 


READ  (11,360  X (MNUM) ,Y (HSOH) ,Z(MNUM) ,VEL (ciNUN) ,LTR 
IF  (xlaNON)  .LZ.J.  1)  g6  TO  150 
IF  (LTR.EC.1)  IM  ?  =  1 
LT52=LTR 


_  GO  TO  1dU__ 

C  READ  NIL£SIONES~?RCa  TaE  T33NINAL 


160  CALL  I  IP  T 
I  (NNUH)  =X1 
Y (MNUM ) *Y1 
170  CALL  SVPT 
Z(a:Joa)=ri 
VEL(flNUM)  =Y1 
IF  (INP.iC.O)  GC  TO  140 

C  C0NP0T2  FLIGHT  PARANETEBS  AND  CHECK  FOR  EBECSS  OR  US Ea  COMMANDS 

180  IP  (NNUH.EQ. 1.AND. (LIE.  SQ.83 . CE. LIB2 . ZC-33) )  STOP 
IF  (NNUH.  EO.  1)  GO  TO  140 
IERH=0 

CALL  VALSET  (ISB3) 

IF  (/(LTE.EQ.  32)  .C3.  U.T32.2Q.  82>)  .AN  D.  (IMP.NE.O)  )  GO  TO  200 
IF  ( (LTB.Eg.66) .OB.  (1TR2. EQ.66))  NHH-HNUN 
IF  ( (LTa.Eg.83) .03.  (LTR2. Eg. 32) )  GO  TO  230 
IF  (ISaa.EQ.O)  CALL  ESSCaK  JIESR) 

IF  (<IERE*KSR.EO.C)  .AND.  (IERR.NE.  12)  )  GO  TO  190 


CALL  SBBBK  (IESR) 

HR ITS  (6,390) 

9BITE  l6.400! 

READ  (5,*)  ITCH 
CALL  FRTCNS  ('CLRSCSN  ') 
IF  (ICOR.NE. 1)  GO  TO  190 
>  BITE  (6,410) 

READ  (5, *1  IANS 
CALL  P8TCMS  (’CL3SCRN  ') 
IP  (IANS.  NE.  1)  GO  TO  160 
GO  TO  1 7  C 


C  (I  ILS5T0NS  ACCEPTED,  RESTART  THE  S  EtUENCE 
190  CALL  ?  THPLT  ,, 

IE  ILTR  -Eg.  65  .ca.  LT32  .sg.  65)  CALL  AINPT  (NNUH) 
SO  TO  140 
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C  THIS  SECTION  RESETS  TEE  TATA 

200  CALL  SCENE  (1,ICT) 

BEHIND  19 

If  (3BH  .GT.  ICT)  NB2=0 
C  CCBPLETS  aESTiBT*  "  ~  " 

IP  (ICT  .GT.  1}  SC  TC  I’Q 

aiiua=o 

GC  TO  110 

C  DEAN  BETAINE!  BILESTC  NES 

210  IE  ((ICT  -GE.  SNOB)  .AND.  (BUGS  .GE.  3))  ICT*«N03-1 
DO  220  3303=2,101 
220  CALL  PTHELI 
HN0H=«  NUfl-1 
GC  TO  110 

C  THIS  SECTION  TEBHINATES  THE  PSOGRAB 

230  ELANK=0.  ~  ’ 

CALL  ? THFLT 
LAST=Iaf 

CALL  EL? IN  (LAST) 


C  CC3PU1E  FLIGHT  PAR 

DX=X(3N0a)-X(B 
dy=t (3  nub)  -i  (a 
DZ=2(BNUB)-Z<a 
BA  (BNO  3)  =0. 

C A  (2ND3)  =ATA N 2 
IP  l(DX  . £0.  0 
HDG  (3N  Ufl  1  =* TA  N 
GC  TO  25 1 
240  IP  ((DX 
I? 

If 
I? 

250  XEO 


AKSTSSS  FOE  FINAI  LEG 
NUB-1) 

nub-i) 

NU3-1) 

|C  2  ,SQ  ST  ( D  X  **  2  ♦  DY«*2)) 
.)  .OR.  (DY  .EQ.  0.))  GO 
2(01, OX) 


10  24  0 


EQ.  0.)  .ANt.  (DY  -GT.  0. 

)  HDG  ( 

EQ.  C.)  .ANC.  (DY  .  LT.  0. 

)  HDG 

£Q.  0.)  .ADZ.  (EX  .LT.  0. 

)  HDG  ( 

SQ.  0.)  .ANC.  (DX  .GT.  0. 

1  KDG( 

)=VSL  (SNUB)  *COS  (HDG  (ES0B) 

*  COS  (C 

)  =V  EL  (3  NUB)  *SIN  (  HDG  (  3 NO 3) 

•COS  C 

)  =VEL  <3  N  LB)  »SI  N  (  CA  (  0  AU3) 

=3.  14  153 


260 


270 


(I  .EC.  3BH 
1 1  . EC.flNUK 
SI  n  1,360) 


c— 

C  C3EATES  NEW  "  PTS  ICC 
C  HAVE  BEEN  INECT 

IF  ( fl3P  .EQ 
BEHIND  11 
IGUN=1 

8  BITE  (1  1,360) 

DO  260  1=1, SNUB 
LTB-0 
IP 
If 
HHI 

8  HITE  {1^370 
HBITE  (11,380 
1  LANK 

IP  (IG  ON  .SQ. 

DO  270  1=1,5 
HHIT3  (1  1  ,360) 

_ H  BITS  (1  1,360) 

C  CCSYBBT  ANGLES  PBC 

c - 

280  DC  290  1=1,3808 

c:  — 

BA 

290  HD 

C  HBITE  THE  JCI  CASES 

If  iWKB.IiTlT  STOP- 
(IP NCH.EQ. 2 )  GC  TC  300 


IF  ,’IEH  HEAPCN  OB  3ILEST0NE  COORDINATES 

C)  .  ANC .  (I  GO  N  .NE.  1))  GO  TO  280 

BLANK,  BLANK,  3  L  ASK ,  3L  A  NK,  SLA  NK 

)  LT3=66 
j  LTR=LAST 

XU)  ,Y(I)  ,  Z  (I )  ,  PEL  (I)  ,  LT  S 

VEL  (1)  ,aaa,3LASK,aLANK,IGUN,IGUN,  BLANK,  BLANK,  ICON  ,3 

0)  GO  TO  29  0 

XGCN  (I)  .  IGON  (I)  ,  2G0  N  (  I) 

XS  A3 ,  YSnN  ,  2S  A  3 

B  SACIANS  To" DEGRESS 


z-ju  i, nnua 
:A  (I)  =CA  (I)  «0GPAC 
IAJIJ  =  8A  (I)  *  C  G  P  AC 
IDG  (I)  =HEG(I)  *DGF 


AC 


I? 


WRITE  (6  ;  4 30  { 

WRITS  (6,44  0) 

BEITS  lb  ,450) 

SEED  (5,530)  INAM1 (1) ,INAM1 (2) 
CALL  FSTCMS  (*CL3SC5!f  ') 

IF  (IPSCH.EQ.1)  SC  TC  310 
B  BITS  (6,1*60) 
saiTE  (6,430) 

BRITS  ib,440) 

BEITS  (6,450) 

BEAD  (5,530)  INAM2  (1  >  ,INAN2  (2) 
CALL  F  5* CSS  ( ' CL3SC3N  •) 

WRITE  (6,470) 

READ  (5,*)  IUS9 

CALL  FSTCMS  (  '  CLBSC5  N  ') 

WRITS  (6 ,  480 ) 

BEAD  (5,*)  IANS 

CALL  FRTCMS  ('CLHSCSN  ') 


C  CHOOSE  DESTINATION  FCf  OUTPUT:  PRINTER  0  d  RE  ACER  PILE 


WRITS  (6,490) 

320  W SITE  J6 , 500) 

BEAD  (5.*)  IDEST 

IE  ((IDaST.NE.  1)  .ANC.  (IDEST. HE. 2)  )  GO  TO  320 
CALL  P  3TCMS  ('CLaSCFN  ') 


C  PRESET  LOADS  MICE/E0G1  DATA  PILESCNTO  US E3S  A1  DISK 


CALL  PRESET 


C  DUMMT  INPUT  ROUTINE  IC  LET  USES  KNCW  WHERE  S/HE  IS 


SHITS  (6,510) 

BEAD  (5,*)  IGC 
CALL  FRTCMS  ('CLuSCSN  •) 


HE  PGR 


C  FOaCE  CALL  TC  CHS  TO  SUBRIT  DATA  PILES  TO  BATCH  PROCESSING  PGR 


IF  [IPNCH.EQ .2)  GC  TC  330 

CALL  FaiCRS  ('EXEC  ','SUSRIT  *,'F001  • , ' DATA  •) 


CALL  FaiCRS  ('EXEC  ','SUSRIT  *,'F001  • , ' DATA  •) 

IF  (IPNCH.EQ. 1)  GC  TC  340  i 

330  CALL  FBTCRS  I'tlEC  ','SUDHIT  ','RICE  ' , ' DATA  •) 

340  CONTINUE  __ 

C  DUBBY  INPUT  ROUTINE  TC  LET  USER  KNOW  PGH  TERR  IN ATION  HAS  BEEN  REACHED^ 


FCERAT  (PIO. 0,12, 611, F1Q.0) 

FORflAT  (3H  ) 

FCBMAT  (54H  DC  YOU  BANT  TO  FIX  THE  3 RRO R : 0=NO , US E  THE  POINT;  1  =  YES) 

FORHAT  (4CH  DC  3C0  BANT  TC  RETAIN  X-I  FT : 1 = t SS ; 2 = NO) 

FOBS AT  (403  TO  SUBHIT  POO  1  TO  EATCK  YOU  RUST  CREATE) 

FOBRAI  (31H  A  0C3  CONTROL  LANGUAGE  "CABC.) 

FORMAT  ( 5  1  H  ENTER  A  NAME  “  II  RAT  CONTAIN  UP  TO  3  CHARACTERS;) 
FORMAT  (253  **CC  NOT  INSERT  BLANKS**) 

FORMAT  (4UH  TO  SUBMIT  **RICE»*  TO  BATCH  IOU  RUST  CREATE) 

FORMAT  (46H  ENTER  TO  UR  USES  ID  NURBEB  —  WITHOUT  THE  "P".) 

FCBMAT  48H  ENTER  TOUR  ACCT  NOBBER  --  PROVIDED  3T  THE  PROF.) 

FORMAT  ( 4 1 H  CHOOSE  THE  DESTINATION  FCR  ICUi  OUTPUT:  ) 

FORMAT  ( 30H  1  =  Fa  1ST  a S;  2«YOUR  READER  FILE) 

FORMAT  ( 46H  ENTER  ANT  **  NUMBER**  TO  SUEMIT  TOU3  ?00 1 /M ICE , 1 4 H  DATA 
PILEJS)  .) 

FORMA.  (40H  ENTER  ANT  **NUM3ER**  TO  TERMINATE  T2PI?) 


WRITE 

16 

READ  ( 
STOP 

5. 

350 

FORMAT 

360 

FORMAT 

370 

FORMAT 

380 

FORMAT 

390 

FORMAT 

400 

FORMAT 

410 

FORMAT 

4  20 

FORMAT 

430 

FORMAT 

440 

FORMAT 

460 

FORMAT 

460 

FORMAT 

470 

FORMAT 

480 

FCBMAT 

490 

FORMAT 

600 

FORMAT 

510 

FORMAT 

1  I ILS  ( 

S) 

( 

520 

FORMAT 

530 

FOBMAT 

END 

< 


> 


»  i 


10 


(;•*•••*•••«••«**•».****•** 

C  SU3R0GTINE  BEGIN 
C  THIS  SU 

C  IBS  CSS 

c*» *»«*»**** **»****♦*»*»»* 

SUBROUTINE  3EGIN 
CC3CON  /KM/  IEAUC 

ccsscs  /Cft/  icon, ip 

C  aSAD  USES  CPIIGN S 

CALL  ?  3TCHS  ('CLRSCBS  •) 
KBITS  (6.601 
HEAD  (5,*)  iGCN 
IE  (  (IGUN.NE.  0)  .AND. 
CALL  FSTC3S  ( ' CLR3CS 
IF  JIG  ON. ME. 1)  GO  TO 
K  BITE  (6,70) 
aaiTE  J6 ,80) 

BEAD  (5,*)  13  FZ 
CALL  FuTCaS  ('CLRSCE 
KBITS  (6,90) 

BEAD  (5,*)  I3P 
If  ((ISP. ME. 0)  .AND.  ( 
CALL  FSTC3S  (4CLaSCS 
KBITS  (6,100) 

BEAD  (5  ,  *)  XEB 
IF  ((KE9.SE. 0) .ANE.j 
CALL  tEICaS  ('CLjSCS 


BBOUTLNE  INITIAL 
E  OP  TICKS. 

**»  ***««=**•**•* 


IZSS  TRE  GHAPRICS  AND  BEQQESTS 


C'.! ,  I  EXT  ,I£A3,I3  ! 


20 


30 


40 


50 


KBITS  (6,110) 
KBITS  j6, 120) 
BEAD  J5, *)  IE 


(IG ON. NS.  1).  AND. 
N  ') 

20 


»S  ') 


lap.  NE.  1 )  )  GO  TO 
S') 


KE3.  NE.  1 )  )  GC  TO 
N  ’ ) 


(IGON.NE.2))  GO  TO  10 


J5,»)  IEAUC 
IBACD.NS.C 


)  .  AND 
L.-SCS 


CALii  ? BTC3S 
KB  HE  (6,130) 

SEAL  Jb,  *)  KO.V 
IF  (  (SON  .  NE.  1)  .  JSC.  ( 
CALL  F3TC3S  t'CLSSCS 
IF  (SON  .  NE.  1)  CALL 


.  (T3AUD.  NE.1)  )  G 
N  •  ) 

SON.  NE.  2)  )  GO  TO 
'CC&CEG 


20 

30 

C  TC  40 

50 


C  IKITIALIZZ  TEE  GBAf BIC3  AND  CLE A3  SCREEN 

CALL  3SINIT 
CALL  GSESSE 
BETUSM 

(56H  GCNS:0=DISK  FILS;1=T2EBI 
( 55H  **  CHCICE  1  NEGATES  HAVI 
(55H  GDN/SAH  SITS  ALIIXUDE:1= 


60 

FOB3AI 

70 

^&rmat 

^OBH AT 
1> 

ao 

90 

FORM AX 

100 

PCB3AT 

110 

FOBHAT 

120 

FCBHAT 

130 

PC33AI 

END 

5  CH  A I  BCR  AFT  MILESTONE  INPOT 
50H  EHBCR  CEECKING:  0=KO  CHE 
54H  *»  SELECT  1200  BAUD  FOB 
35H  BAUD  FATE:  0=300  EAUD:  1 
5 OH  PLIGHT  5  GAME  PA3AKETSBS 


NAL;2=PRESET (GOUGE  SET  OF  GUNS 

SG  TO  GO  OVER  TO  THE  ALII3STEB 

FIXED  TO  203 ; 2  =  US  EH  DSFIN  SABLE 

:  Q=DISK  FILE;  1=T ERA  INAL) 
CKING;  1=CH3CK  FOR  ERRORS) 

THE  IE33277/TSK618  TS2BINAL3.) 
=  1200  3AUD) 

:  1 =0 EF A ULT;  2=0SEB  INPOT) 
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nnn  nnfinn 


SOBBCUTIHE  COSCHG 


THIS  SCESOUTIXE  AIICWS  CFEaATOH  CHANGES  TO  THE 
SIMULATION  JAHA.1EISSS. 


COSBON1/?  A83/N  T30,  AC  LIFT  ^CLSA  X,  A  L.ra  AX,  CEO,  C3K,.  7  1  AX  1  #/MAX2 

ccrrcn  /e  as**/  AF?a.Ax ,  ht.r  i  s,  :i-  /.u,ai-D.n:i  ,»a ax ,  =■-  pmtx 

cor. .10.1  /l  AH/  TA53J  ,TAHG  i  _  _ 


88  IIE  IMSrSUCTICilS 


WHITE  (6,190) 

WHITE  (6,20  0) 

WHITE  (6,210) 

WHITE  (6,220) 

WHITE  (6,230 
WHITE  (6,240) 

WHITS  (6,250) 

WHITE  (b  ,  260) 

WHITE  ^6j27|)S 

irs^  ('ill; 20J),  30?56 ,  to. *aG0 ;oo !  alUS?  1 5o.  no,  120 , 130, 1  40 , 150 , 160. 1  70 
1)  ,  X 

WHITE  (6,290) 

BEAD  (5,*)  CLSAX 
GC  TO  10 
WHITS  (6,290) 

HEAD  (S,*)  WL 
GO  TO  10 
WHITE  J6 , 300) 
head  (a.*)  3?cai:i 
GC  TO  id 
WHITE  (6,310) 

HEAl  (5,*)  GR  AX 
GO  10  10  . 

WHITE  (6,320) 

HEAD  (5, *)  ElSia 
GC  TO  10 
WHITE  (6,330) 

HEAD  (5,*)  HTKAX 
GO  TO  10  ,  „ 

WHITE  (6,340) 

HEAD  (5.*)  POEKIH 
GC  TO  10 
WHITE  (6,350) 

HEAD  (5,  *)  AFEHAX 
GO  TO  10 
WHITS  (6,360) 

HEAD  ( 5,  *)  TO  A  X 
GC  TO  10 
WHITS  (6  ,370) 

HEAD  (5,*)  COO 
GO  TO  10 
WHITE  J6 , 380) 

HEAD  ( 5 . •)  CDK 
GC  TO  10 
WHITS  (6,390) 

HEAD  (5.*)  7  a  AX  1 
GC  TO  10 
WHITE  (6,400) 

BEAD  (5.*)  VBAX2 
GC  TO  1(3 
WRITS  (6,410) 

HEAD  (5.*)  TAHGX.IAHGY 

GO  TO  10  _ 


C  BEAD  HEW  PAH  ARETE  3  VAIUZS_? 30 THE  Cl SK^ 

160  IIJP'14%50)  ClRAX,»t,3?DalN,G.aAX,3T3IX,HTaAX 

BEAD  (16,450)  EC  E  XI X  ,  AP  ?  R  AX  {T  J  AX  ,CjO  ,  CI.K,  /  MAX  1 
HEAD  (16  JuSOi  VHAXa,:AHGX,:AHG7 
GO  TO  10 
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c  aarrs  parameter  talus  tc  the  terminal 

170  H  SHE  (6,420)  ~ 

MBITS  (6,450)  CLM»X,KL,SPDniN,G8AX,HTMIN,HIMAX 
MBITS  (6,430 

Malta  (6,450  P0P2IS  ,A?PMAX ,T2AX ,CD0 ,CDK, 7MAX1 
M  SITE  (6,440) 

MBITS  (6,450)  VHA X2 ,TARGX ,TAHGS 
G C  TO  TO 

C  SAVE  CABAS  HT  SB  7AI3ES  CN  DISK  AMD  RETURN  TO  CALLING  SOUTINE 

C  — 

BEHIND  16 
SHITE  (1  6 ,45  J) 

•BITE  1o,450 
MBITS  (16,450) 

BET'JBS 
FOBSAT 
FCBMAT 
FOBSAT 
FCBMAT 
FCBMAT 
FOBSAT 
10  LIFT) 

FORMAT  (44H  1 2  =  LIFT  DRAG  CONSTANT 


180 


190 

200 

210 

220 

230 

240 


CL2AX ,WL,S?DMI N.GKAX,  HT  MIN,  .it  3  AX 
rCEMIM,A$t,3AX,*.1AX,«.jC,CDK,  7 .1  AX  1 
7  M  AX2 .TAHGX.TABGY 


|1 


5H 


.  OH  SELECT  P  ARAM  STE  3  TC  BE  CHANGED:  1  =  MO  MOKE  CHANGES) 

(48H  2  =  MAX  LIFT  COEFF;  3= » I NG  LOADING;  4=  5  T  ALL  SPEED) 

47H  5  *  M  A  X  G  F02CS;  6=RIN  ALT;  1=MAX  ALT(<2200  MT3)  ) 

(4iH  d=CI5TANCE  TO  TARGET  BEFORE  ?0?'JP  ALLOW  ED) 

(63H  9  =  8AX  APPROACH  ALT;  10=3AX  T/S  3ATI0;  1  1  =  DRAG  COEF.  M/ 


250 

260 

270 

280 

290 

JuO 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 


FCBMAT 

FORMAT 

FOBMAT 

FC3MAT 

FORMAT 

FCBMAT 

FORMAT 

D 

FORMAT 

FORMAT 

FORMAT 

FCBMAT 

FORMAT 

FORMAT 

FOBMAT 

FORMAT 


j  27  H  ENTER  MAX  LIFT  COEFFICIENT) 


rumiAi  »»n  u*mi  uuu  13=MAX  SPD  SITH  BOMB) 

FORMAT  |  44 H  1 4 a M A X  SFD  S/C  SOME;  15=  TARGET  COORDINATES  ) 
FORMAT  4 3H  1 b  =  R t AD  PAR  A  MET E R _ | ILL ;  17= 1 1ST  PARAMETERS) 


'V 


19H  E  N IE  S  MING  LOADING) 

1 SH  ENTER  STALL  SPEED) 

26 H  cSTFi  MAX  G  FORCE  ALLOWED) 

23H  ESTES  MINIMUM  ALTITUDE) 

47 H  ENTER  MAXIMUM  ALIITUDE  (LESS  THAN  2000  METERS): 
S5H  ENTER  MINIMUM  DISTANCE  TC  T { RG &T  BEFORE  POP-UP 

(32H  ENTE5  MAXIMUM  APPROACH  ALTITUDE) 

(35o  ENTER  MAX  THRUST  TC  -EIGHT  ALLOWED) 

( 37H  ENTER  DRAG  COEFFICIENT  FCS  ZERO  LIFT) 

(25H  ENTER  LIFT  DRAG  CONSTANT) 

( 3 2H  ENTER  MAX  SPEED  CARRYING  A  EO M B) 

j  39H  ENTER  MAX  SPEED  AETE3  oGKB  IS  iiELEAS ED) 

( 33H  ENTER  TARGET  X  AND  X  COORDINATES) 

(55H  MAX  Cl  WING  LD  STALL  SPD  MAX 


ALLOWED 


_  CRM AT  (75H  POP-UP  DIST 
1  MAX  SPD  HITE  ECME) 
- (558  MAX  SPD  W/O 


aiB.BT.  MAX. HT. 
APPR.HT.  MAX  THRUST  CDO  DRAG  CONSTANT 


FOBMAT 

Format 

END 


3  CM  3 


TARGET  X  COOBD. 


TARGET  Y  COOBD. 


(6F12.4) 
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cnnn  ui  w  —nnnnnonn  non  nnn  nnnnnn 


SUBROUTINE  SCENE 

THIS  EOLTINE  DRAMS  THE  ATTACK  .1AP AN D  ASSOCIATED 
DISPLAYS.  DURING  RESET  IT  CETAISS  THE  EAST  SILE- 
STC3E  TtE  USER  WISHES  t°,3STAINj  »«„* 

SUBROUTINE  SCENE  UEv.ICT) 

CO.", HON  /  HN 1  /  MINA ,3 A  XX,  SI  NT  ,  S AX Y  ,  HI  S X  1  ,  S  AX XI  ,  S  INX2  ,  S  AXX2 
CC.HHO H  /ERR/  H  K  5 5  A  ( J  )  ,S  SEsY  ( 1  S ) 

ccs. ion  /as/  i esc: 

coaaos  /PAR/  X  (2 0 C)  ,Y<200) ,2  (200)  ,3DG  (200)  ,CA(200)  ,SA(20U)  ,  VEL  (200 

loMSON  /TAR/  TARGI.TARGY 
BEAL*4  GX,GY 
LOGICAL  *1CHARS(2G) 

ICT=0 


SSASE  THE  TEK618  SCREEN 


CALI  3SESS2 
CALL  DSTEB21 


READ  DSSR  OPTION S : ECRCEH  AND  GUN/'ISS  POSITS  OR  FIL: 


SAP  ALSO. 


SSTT3  (6,100) 

BEAD  (5,*)  SAP 

IF  (lac  .Eg.  0)  GC  TC  10 

WRITE  (6,9'J) 

BEAD  (5,*)  ICT 

CALL  *  HI  CSS  ( ' CL3SCBN  •) 


D  BAH  THE  C,Y  SAP 

THE  ROOTINE  HEADS  1.7  PATSS  FROS  FILE  J9.  A  -2.0,0  INDICATES 
ESC  OF  FILE, -0.5,0  INDICATES  A  HOVE. ALL  OTHER  WALOES  ARE  PO¬ 
SITIVE  AND  aESULT  IN  A  IRAK  TC  THAI  POINT. 

R E -INITIALIZE  THE  IE K6 1 i _3C EE EN 

0  CALL  D  SI  SIT 

CALL  WIN  (HINX.NAXX.  1S300.,  1  2CCQ. , 1) 

IF  (SAP  .EQ.  0)  GC  TC  4 0 
6BWI3D  9 

READ  (9,80)  GX, GY 
3  HEAD  (9.e0)  GX,GY 

CALL  G3SOVE  (GX.GY) 

0  BEAD  (9,80)  GX , GY 

IF  (GX.LI.-1)  GO  TO  40 
IF  (GX.LT.  0)  GO  TO  20 
CALL  G3DHAW  (GX.GY) 

GC  TO  00 

HABK  THE  T  ARGET:  GUNLCC  PUTS  A  ♦  AT  GUN/HISS  POSIT  AND  CIRCDSSCBIEES 

0  CALL  GONLCC  (T 4BGX ,T SRG Y ,  150 . ) 

CALL  GUNLCC  ( T  ARG  I  ,  T  AEG  Y  ,  000  .  ) 

C  DRAW  TIC  HARKS  EVERY  2C00  SIRS 


DO  50  1=1,9 
IW=2*I 


C  THIS  BLOCK  OEAWS  TEE  Y-AXIS  TIC  HARKS 


CALL  GEHCVE  (1*2000. , 1000 .) 

CALL  GBDfiAW  (I*2JC0.,0.) 

CALL  GAXITC  {  1  ,  IW  .2  ,  CHARS  ) 

CALL  GBCHAR  (1*2000. ,0. , 2 ., 0 . ,2, CHARS) 


C  THIS  ELOCK  DRAWS  TIE  Y-AXIS  TIC  HARKS 


IF  (I  .GE.  5)  GO  TO  50 
CALL  GBHCVE  ( 1  CUO. , I *20 00 . ) 

CALL  G3DEAW  ?O.,2C0O.*li 
CALL  GAXITC  I  1  ,IW  ,2 , CHARS) 

CALL  GBCBAR  (-6  0  .  ,1*  200  0  .  ,2  .  ,  0.  ,  2  ,C 


CCSTINUE 


CH  ASS) 


»  • 


»  • 


non-j  o>  non 


ii=siny 

i2=maxi 

aAXY=MINY-15 

HINY=aiNY-200 

CALL  SIN  (BIN  X  *275 ,  MINX  *  2200 ,  155. ,185 

CALL  G  BC  HAS  (  1  C .  ,  11 0 . ,2 . 5 «0.  . EC,  • X£ X 

CALL  GcCBAE  ( 1  C  .  ,40.  ,2-  5 , 5.  ,  2  5 , 5  2SRO 

CALL  GSFSCE 

HAXT=I2 

BINY=I1 


.  #  C) 

MASKS  IN  2000  METIS  INTVLS’) 
DEGREES  ALONG  X  AXIS’) 


DBAS  THE  ALTIMETER 

CALL  AIN  <MINX1,MAXX  1,3  50~22CC.  ,1) 

DO  60  1=2.20 t 2 

CALL  3  EMCvE  (0-, 1*107.) 

CALL  G  30  3 AW  ( 3 50  .  .1  *  100  .  ) 

CALL  3AXITC  ( 1  ,1. 2, CHARS) 

CALL  GBCHAR  (0  .  ,  I «  10 C. ,  2 .  .0  .  ,  2.CHAR S  ) 
DO  70  1=1.6 

CALL  G3MC7E  (1*50.,  100.) 

CALL  GBDRAN-  (1*50. ,C.) 


MASK  HESET  POINT  VELOCITY  AND  ALT IIUDE  AS  OPERATOR  AID 


ao 


90 


100 


IP  (ISO.  N  E.  3  .ANC.  ICT  .  GT.  1)  CALL  GBGDOT  (9.  ,  VSL  (ICT)  ,2  (ICT)  ) 

MAXY=MI!IY-15 

MINY=aiNY-200 

CALL  SIN  (MI  N  X *23 CO  .  MIN  X*  39  00 , 195.  ,  1  85.  ,0) 

CALL  GECEAS  (  1 0.  ,  1 10  .  .2 . 0  ,  J  .  .  25  .  ’  AuT  MASKS  IN  2J0  METES  INTVLS’) 
CALL  GBCHAR  |  1 0. , 60. , 2. 0 , 5. , 5 2, • VSLO  IN  50  M/S  INTVL  ALONG  X  AXIS’ 

^all  GSPSCE 
a AXY=t  2 

aiNY=i  i 


HEIU.iN 

FC33A:  (2E10.2) 

F03MAT  ( 38H  AT  «HICH  POINT  DO  YOU  WANT  TO  REST AST) 
FORMAT  (33H  VILLAGE:  0=NOI  DRAWN;  1  =  V ILL AG E  DRAWN 
END 
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nnn  nnn  nnnnnno 


»•*•*•**•*  *«*»**•♦•»♦*«*■**«•**»«*»************#***«***»*«*«  *********** 

S  OBBQUTIHE  41N 

1  HI 5  RCCTINE  DEFINES  A  HISCOW  EXTENDING  rSOH  LX  TO  NX 
Cl!  TEE  HORIZONTAL  AXIS,  AND  FROM  31  NY  TO  SAX  i  ON  THE 
VERTICAL  AXIS.  THE  HORIZONTAL  R AN G£  IS  RX  ,  THE 
V  ERTICAL  RANGE  IS  RY. 

»• *»***»*•»»»»*******«»****« •**«***••••**  »*»•*»»»*»*«*»*»»*«»• «*••«*•*• 

SOBROtJTI  H  E  UIN  ( LX  ,  2  X  ,3  X  ,  RY  ,  J  HP) 
coanoN  /as/  ieaud 

ccaaoN  /ssv  2iax,3ixx, a ist,3Axy,hi:;xi,3axxi ,:iisxe, eaxxe 

REAL«4  SIS  1(4) 

INTEGER* 4  V 1 (4) 

DATA  AIM1  (1) /C./f  SIS1  (2)  /0./ 


DEFINE  THE  SINDOii 


ICT=4*50*I3A0D 
DC  10  1=  1.ICT 
CALL  GaaCVE  (C.,0.) 

CALL  SEDRAK  (WIN  1  (  1)  ,ii:\  1  (4)  ) 

CALL  G  uD  K  A  «  (SIN1  ,41:11  (4)  ) 

CALL  G  HD  5  AN  (  •  INI  ( 3)  ,  WIN  1  (2)  ) 

10  CALL  GBD3AK  (NISI  (1)  ,«IS1  (I)  ) 

20  RETURN 

END 


I 
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nnn-  nnn  non  non  cinc.nnnnn 
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nnn  nnnnnn  n  fionn  nnnnn 


*  ••***•***  ******««**•»******* ******** A***************************** 

SCaSOUlINS  XYFT 

THIS  SOEaOOTINE  C ETA IMS  THE  X  AND  X  COORDINATES 
AND  COMMAND  EC  3  EACH  DESIGNATED  POINT  (MILESTONE). 


SC3KOCTINE  XYP1 

COMMON  /ICC/  X  1,Y  1.Z  1,V  1  ,  IT  S,  LTH2 

COMMON  /  M  N 1  /  MINX  ,M  A  XI,  MI  NY  ,  M  AXY  ,  MI  N  X 1  ,  MAX  XI  ,  HI  M  X  2  ,  M  AX  X  2 

ccmmon  / lMN/  ieauc 
CALL  3 ELL 


FLASH  MAP  AND  GET  X,i  AND  THE  flHST  COMMAND 


CALL  X IN  iniNX, MAXX. 18000. .12CC0- 
CALL  SPOT  (XI ,Y1  ,11?) 

CALL  BELL 

HETU3N 

END 


D 


*»»«*#»** «*•»»*»»**»»«.»***»«»**»**»»*»»»»»»***»»*»«»»**»»»«»* »*•««»«»» 

SUBHOOTINE  27PT 

THIS  S'JEEOHTINS  C  ETA  I  NS  THE  A  LTITDDE  AMD,  DEPENDING 
CN  THE  Cl?. C G MS T A KCES ,  THE  VELOCITY  OF  THE  DESIGNATED 
PCINT. 

»*<««»♦**** **»*****•••*•***»***»***•••***  ****************************** 


SDE30U TINE  ZVPT 

COMMON  / LCC/  1 1  ,  Y  1  ,  2  1  ,7  1  ,  IT  S,  IT  32 

COMMON  /MN1/  3  IN  X  ,  ,M  A  XX,  M  INY  ,  3  AXY  ,  MI  N  X 1 ,  MAX1 1  ,  MIN  X2  ,  KAXX2 
COMMON  /(IN/  IE  ADD 


PLASH  ALII  METE3  AND  GET  7  EL ,  ALT  AH  THE  SECOND  COMMAND 


CALL  WIN  (MINX1.MAXX1,330.,22CC. 
CALL  SPOT  (V  1  ,Zl  ,  ITS 2) 

RETUHM 

END 


D 


126 
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nnnnn  non  nnnnn  <?n<?  t?nr?  Q?r><?  nnnnn 


SUBROUTINE  sect 

THIS  H El  US  as  AS  X-T  PAIS  AND  A  COMMAND  VALUE  LI 
TEE  SOUTINE  ALSO  CREATES  A  DOT  AT  POINT  k  ,T. 


SUS80UTINE  SPOT  (X,Y,L1) 
8EAL*<*  IX,TX,CCT 
IN?EGE8*4  L.M.CUT.KET 


SiAC  THE  CURSOR  AM  PICK  UP  USEH  COMMAND 


CALL  GBKXTC  (K/L,KEY,TX,TT) 
CALL  GAXCTI  ( 1  , KE X , 1 ,L2 S , CUT) 
3CT=40  . 


SARK  THE  SPOT 


CALL  GBGECT  (ECT.TX.TXI 
X=U 


CCNPEET  THE  CC.TMA.M  TC  TFE  ?  SCP  £5  r08M.1T 


L  1*0 
IP  i 

OUT. EC. 1) 

11=65 

I?  1 

OUT.  EC.  2) 

L  1  =  oo 

IP  1 

OUT. EC. 3) 

11  =  32 

IP  1 

OUT.  EC-  4 

L  1  =  63 

BETl 

as 

END 

SUEfiCOTINE  GUNCHK 

THIS  3C:?.0"TIN  E  CHECKS  G'JS  LOCATE  OS  3  AGAISST 

emplacement  rules. 

•*«**•<*«•*  »***  **»»»*»»**«***»**#***»**  *» 


sueboutise  goschk  (X.i.iEsaj 
COMMON  /TAB/  TABGX.IARGT 

COMPUTE  DISTANCE  TC  I  AEG  £ 


DIST=SgRT((X-lA3GX) **2  ♦  (I-T AEGT) «*2) 
IF  (DIST  .LT.  3000.)  IE8a=13 


BETUaS 

ESC 


«*»•»*****»*»***»*»»*» **•*«• ***=••*»***»*•**«******•»»•**** ***  **»**»**» 

SUBfiCUTIHE  SAMCHK 

THIS  SCEHOUTiaE  CHECKS  THE  MI3SLE  EMPLACEMENT 
AGAISST  GAME  LIMITATIONS. 


SUE80UTINE  SAMCHK  (X,IE3R) 
IE8B=0 

IE  (X  .  G E.  60C0.)  SE7UR21 
CALL  3  88 MK  (13) 

IES8=  1 
8STU8N 
EMC 


c  scbbodtihs  EaHBK 


this  gusboutime  sends  prompts  and 

1C  THE  USSR. 


S08BOUTI  HE  SB3BK  <IES£) 
ccbbon  /sn/  ieaue 


c  pias 
c - 


COMMON  /SN1/  BIN  X  ,B  A  XX,  MI  NY  ,  B  AXT  ,  BI N  X  1  ,  BAXX  1  ,  M  I 

ceases  /fab/  x  (2.0)  ,  { o  j) , :  (ico)  ,:i do  u  cot  ,s.^  ;s 
ccaaoN  / e  ja  1/  xcoi  (2C0)  ,  tdot  (ECO)  ,120:  coo)  ,  a:iu 

COMMON  /EB3/  SKESI(3)  ,.lXE3r  (1  S) 

ib  (iaaa  .gt.  2i>  go  to  210 


3X2,  SJ 
0}) 


'■)  ,vs:  coo 


H  THE  PROMPT  .’INDCV 


CALL  JIN  {BINX2,MAXX,.,270  J.  ,  165.  ,  1) 

CALL  GSF3C2 

GC  TO  (10,20, 30, 40. 50. oO,  70,30,90. 10  C,  110, 12J.  12 
1  ie0,190)  ,  I2R3 
BSITS  (6.220) 


1,160,170, 


BSITS  (6.220) 
GO  ro  20C 
BSITS  (6,230) 
GO  TO  20C 
B  SITE  (6,240) 
GO  TO  20 C 
BEITS  (6,250) 
GO  TO  20 C 
BEITS  (6. 260) 
GO  TO  20C 
BSITS  (6,270) 
GO  TO  20C 
BSITS  (6.280) 
GO  TO  20C 
BEITS  (6,290) 
GO  ;o  20  c 
B  SITE  (6  .300) 

go  io  iofi 

BEITE  (6,310) 
GO  TO  2uC 
BEITS  (6,320) 
GO  TO  200 
BEITS  (6,330) 
GO  TO  200 
BSITS  (6,340) 
GO  TO  210 
BEITE  (6,350) 
GO  TO  21  C 
BSITS  (6.360) 
GO  TO  210 
BEITE  (6,370) 
GO  TO  21  C 
BEITS  Jo.380) 
GO  TO  200 
BEITS  (6,390) 
GO  TO  20  6 
BBITS  (6,400) 
GC  TO  21(5 
BBITS  (6,410) 


BEITS 

go  ;o 

BSITS 
GO  IO 


GO  TO 
BEITE 
GO  TO 


GO  TO 

BEITS 

GO  TO 

BEITS 

GO  TO 

BBITS 

GC  TO 

BBITS 

BETURM 

rOBBAT 

FOSMAT 

FOBBAT 

FOEBAT 

rOEBAT 

FOEBAT 

FOBHAT 

PC  SB  AT 

FOaflAI 

FC3BAT 

POBBAT 

FCHBAT 


X  (B  EU  I* )  ,T  ( B  NO  B)  ,2  ( BNUB )  ,7FL(BN0B) 


PCS BAT 
FOBBAT 
FCSM  AT 


125a  BAXIBUB  H3AKING  EXCEEDED) 

1 5  H  MAX  G  EXCEEDED) 

12a  A  L I  TCC  LCB) 

13H  ALT  TCO  EIGd) 

6H  STALL) 

15ri  P C  P-0  c  TCO  LOB) 

(13H  3ME  D  E  CP  LOB) 

(128  SHE  DEO?  HI) 

11SH  TCC  FAB  ?B  TGT) 

17a  HCG>5  CFG  TO  TGT) 

19H  FINAL  S  U K<2 .33  SEC) 

21H  AC  aCSISCNTAL  MOTICS) 

17H  TCC  CLOSE  DO  TGT) 

23 H  iNTEo  MISSILE  LOCATION) 

( 26H  2N1EB  AISC3AFT  .MI  LSSTOnSS) 
(203  ENT  SB  GO  N  LOCATIONS) 


» 


380 

390 

400 

410 


FCSM AT 
FORMAT 
FORMAT 
FORMAT 
ESC 


( 1 8H  MAX  LIFT  EXCEEDS!)) 

(2CH  MAX  TE3UST  Z XC2SD  F E) 
(23h  X  CCCFCINATS  LESS  THAS 
(19H  X ,  Y*  Z , AND  VELOCITY  ,4F9. 


5  000) 
1  ) 


C  SUBROUTINE  VAL3ST 

C  T  E  IS  SUBROUTINE  CCHPUTES  I  BE  FLIGHT  PABA3ZTEF.S  FC  3 

C  EACH  SIIESTONE.  XDCT,  Y DOT ,  ZCOT,  GA,  HDG .  AND  3A 

C  A5E  CC3PUTED  FOR  OUTPUT  TO  P001  AND  NICE  II.  T.1D  AND 

C  _  ACIIFI  A EE  CC.3PGTED  FOR  OS F  31  ER2CHK. 

C *»**********«»*»***»»•»*»•»=•« >**«**«***» *«*•*«*•*•**«*«*»*•«*•**•*«•  .« 

SUBROUTINE  7ALSE7  (IHS2) 

^  CC330N  /EAR/  X  (20  C)  ,  Y  (2  00),  2  (ICO)  ,11DG  (230)  ,CA  (23 0)  ,  ?.A  (2J0)  ,  VEL (2 CO 

C0330N  /PARI/  XDC I  (2  OC)  ,  Y  DOT  ( 200 1  ,  2D  CT  ( 200 )  ,  SNU3,3BP. 

CC330N  / E  AS2/  T(20C) 

COftKON  /P  AS  J  /  JHD.ACIIFT.CLHA  A.iL.TH  AX , CDO . CDK. 73  AX  1 . 7 3AX 2 
DI3ENS  10  N  AX  D  (200)  ,AYD(20O)  ,AZ£(20O)  #XD0(2CJ)  ,^JD  (200)  ,2DD  (200) 
GEE=9. 02 


10 

c- 


I  EER=  1  2 
RETURN 
V  AVGL  =  V  A  V  G 
DISTL-OI SI 


)  -X 

(  3  N  U  3  -  1) 

)  -Y 

iasuH-1) 

j  -Z  l 

[3NU3-  1) 

NE. 

0.)  .UR 

(DY  . NE.  0. ) )  GC  TO  10 


C  LI2IT  THE  SPEED 

OIST=SQRT (DX*«2  ♦  D  Y  **Z  ♦  32*»i) 

IF  (f  VElINNUN)  .  GT.  VI  AX  1)  .  AND.  (HOH  .HQ.  J)  )  V2L  (.1  NU3)  =7  1 A  X 1 
IF  TELIilNUS)  .GT.  V.IAXi)  .AND.  (30R  .Gi.  l{  )  VEL  (3NU0)  =73  AX2 
VAVG=(  VEL  (BNU3)  *VEL  (3NU.1-1)  ) /2.  1  ' 

DT=DI.iT/VAVG 
I  (GNU3)  =1  (3NC.3-1)  *DT 

C  COflPOlE  A  7  EH  AG"  TELOCITY  CO  OF  ONE  NTS  ’  "  — 

- - 

A  X  D  (HU  C3 )  =  V  A  VG*CX/uIS7 
A  Y  E  ( 3  N  U  2 ) =7A7C»LY/CI3T 
A2D (3N U3) =7A  V G *CZ/DIST 
_  IE  (3NUK  .32 .  0)  GO  '0  4  0 

C  COa?OTS_THE  PAHA.1EIE5S  FG£_THE_ INITIAL  LEG  CF  THe'fLIGHt”? ATH 

CA(1)  =  ATAN2  ( D  Z ,SQ FT  (CX*  =  2  *  DY*»2)) 

IF  {  ( DX  -EQ.  0.)  .OR.  (DY  .  2Q .  0.))  GO  TO  20 
1(f)  =A I AN2 


20 


30 


40 

C- 


HDG^f)  =A1AN2  (CY.DX) 

IF  UDX  . 

IF 
IF 
IF  , 

RA  (1 

.  *CX/0 1ST 

•DY/OIST 
ZCCf  Oi=VEL{1)  * CZ/C  1ST 
RETURN 

DELT=  (T  (  HNOS)  -T  (3SUH-2)  )  /2. 


((OX  .EO. 

( i  DY  . EQ. 

I  OY  -EQ- 
(1)  -0. 
XCCT(1)=VEL(1 
YDCT ( 1 j =VEL{1 


EQ. 

0.) 

.ANE. 

(DY 

EO. 

g. 

.AND. 

(DY 

2Q- 

0. 

.AN  C. 

DX 

2Q. 

o. 

.ANC. 

(DX 

.  GT .  0.)) 
>  li.  o.n 
.  LI .  0.  ) ) 
.GT.  3.)  J 


HDG (  1 )  =1.57079 
HDG(1)=-1. 57079 
HDG  1  *3. 14159 
HDG  1)  =0. 


CCEEUTE  THE  ACCELERATION  CO  3  PON  EN I S 


XDD  (330.3- 1)  =  (AXC  (MNU3)  -  AX  D  (  3N  0.".- 1)  )  /DELI 
YDD(3NU3-1)=  (AID  fSN0K)-AYD(3!IUR-1))/C2LT 
ZEC(3NU2-1|=  (  AZ  E  l  3N03J  -  AZ  E  (3  K  U3-  if  j  /  DELI 


A  EIGHT  AVERAGE  OF  TEE  VELOCITY  CO  3PQHENT  S 


HCAVG=  Cl  STL/  (  C  1ST  *CISTL) 

TDX=  (A  XD  (HNU3)  /VA7G-AXD  (3  NO  3-1  )/VAVG  L)  *HD AVG * AX D ( 3NU3-  1)  /7AVGL 
TDY= (AYD (3NU2) /VAVG-AYD  (N  NUN  -  1) /VAVGL) *HDAVG4AYD (33U3- if / VAVGL 
TDZ=  (A  ZD  (3NU3  )  /VAVG-AZD  (3  iU3-  1)/7A7GLI  *B  D  A  VG  4  AZD  (KNUM-  1)  /VA7GL 


HAKE  THE  A  EIGHT ED  VALDES  A  UNIT  VECTOR  AND  C03PUIE  THE  3ILES70NE 
VELOCITY  CCHPONENTS 

0NIT=SQRT (TDX*TDX  ♦  I E  Y*  T  D  Y  ♦  TIZ=TDZ) 

IF  (A8S  (UNIT)  .  G  H .  0.01)  GO  TO  50 

isaa*i2 
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nn<~t  »nnn 


return 

idx=:d  x/cnit 
tcy=tdy/onit 

TEZ*TD  2/  C  NIT 

XECT(H  NUN-1)  *VIL(SSUS-1)  *TDX 
EDO  1(1  NUH-1)  =VEL(S NUN-1  *TDY 


ZECTMNOS-1  =  V  S  L  (HNUN-1 )  *TDZ 

IF  (SORT  (IOX*‘tEX  +  ICY*TDY)  -GE.  0.J1)  GO  TO  oO 
ca  cmua- 1)  =i  .5533 
GC  ro  70 

CA  (US OH-  1 )  =A  T  A  N2  ( ID  Z  ,Sq8  T  (T  3  X  »T  DX  ♦  TD  7  *T  IT)  ) 

IF  ((TDK  .  EQ.  O.i  .0.-1.  (TZY  .  EQ-  0.))  30  TO  30 
aCGiMSU.1-n=.-.TANi  (TOY, TOY) 

GO  fO  90 


(  (TDX 

.EQ.  0.) 

.  A  NO. 

(TOY  .GT.  ).)) 

HDG  C1.NUH-  1) 

=1.57079 

(  (TOX 

-EQ.  C.) 

.A  NO. 

(TOY  .IT.  0.  )  ) 

HOG  (.lNUH-l  ) 

=-1. 57079 

1  (CCY 

.EQ.  0.) 

(TDX  .LT.  0.  )  ) 

HDG  (1NUH-  1) 

=3.14153 

l  (TDY 

.EQ.  0.| 

.  A  NO. 

(TOX  .GT.  a.)) 

HDG  (.INUa-l) 

=  0. 

•NTS  Of 

ACCELERA 

TICN 

Ill  THE  AISC5AFT 

COORDINATE 

SYSTEH 

CASIX*SIN  (CA  (»N0.1-  1)  ) 

C ACCS* COS  (CA  (.IS 0.1-1 )  1 
HDSIN=  SIN  (HOG  (MNU2-  1)  ) 
HCCOS*COS  (HOG  ( SINUS- 1  )  I 
A1 1=XDC (XNUN- 1) •HlCCSIcACGS 
a2i=-xdd  « n n j :i - 1 )  «fdsi:i 
A3T=-XDD  (  UNO  il  -  1 )  *tCCCS*CASIU 
A  1  2*  YD  D  (3SUT-  1)  «H  23i:i*CAC0i 
A22  =  YDD(2NU.N-1)«HSCCE 
A32=-Y  00  (.mu  9.-  1)  *EQS  IN*  C  A  GIN 
A13*jZDD  (.10112-1)  ♦GEE)  *CA3IN 

A3 3=  (ZDD  (2MUS-1)  *GEE)  *C.ACOS 


CC2EUTE  ACCEL  in  AT  It  N  GAR  ALL  EL  AND  GEN  r  EN  C  IC  'JL  An  TO  FLIGHT  ?Al!i 


THE*  (A  1  1«A12*  A  13)  /GEE 

ACLIF I  *  (SCR?  (  (A21+AE2) «*2t (A3  UAj2* A  33) **2) ) /Gil 
IF  (A03 (Aj1*Aj2*AJ3)  .02.  0.01)  30  TO  100 
aA(iNOa-1)=1. 57079 
GO  TO  11C 

8A((!!IUa-1)*ATAa2(  (A2UA22),  (A31*A32*  A33)) 

CALL  2RRHK  (22) 

RETURN 

END 


C  SC3BOOTINS  laaCilK 

C  THIS  SOEROUTINE  EVALUATES  THE  FLIGHT  PARA3ST2HS  TO 

C**  **•••***• **•*••* I KSURE^THAT  ^TH  EY  ^HEET^T  H|^CESIa£0  SI3UL  AT  ION  LIMITS  . 

SOB SOUTINE  ERRCHK  (1228) 

ccaaos  /EAR/  X  <  2  J  C )  ,1(200), 2  (200)  ,HDG<200)  ,CA(2J0)  ,  RA  (200)  ,  V  EL  (  2  CO 
cossca  /fasi/  xdci  tzco)  ,tdot  (ICO)  ,zdct  (200j ,  aaua.asa 

CCMHON  /EAR2/  T(2C0) 

CCB20N  / I A2/  TARGX.TARG ? 

CCKSON  /EARS/  TBC ,ACLI?T, CL3 A X, «L , 13 AX, CDO ,COK 
COKBON  / F  AR4  /  AF£KAI,HTMIS,HTJ!AX,3P0ai:,,GiiAX,?OPaiN 
BATA  T3SAV/-1./ 

Dx=r.\RGX-x(.aaua) 

DT*'TA2GY-V (AMU3) 

DIST=SQilI  (DX**2  ♦  DT**2) 

C  INITIALIZE  POPALI  A  AO  IXSAV  "  ----- 

IF  {  (1  NUB.NZ.2)  .AND.  (THSAV.  SE.-1.)  )  GC  TO  10 
ECEALr=0 . 

TH  SA  V=  13  A  X 

10  IF  (aflR.EO.O  .  AND.  T  BAX  .  S  E.  TH  S  A  V)  T!1AX=I!1SAV 
CALL  3RR8K  (23) 

IF  (HSR  .GE.  1)  GC  TO  20 

if  ((Disi  ,li.  ?c«ais).oa.  (2  urau;*)  .li.  appbax))  go  to  2 j 

IEFR=4 

RETURN 

20  IF  (DI5T.LZ.  PCE3IN  -AND.  Z  (2N UB)  . GT. FCr  ALT)  FO?ALT=Z (3  HUM) 

i?  ujssus)  .  ge.  ai*i:o  gc  :c  so 

C  I  ERR—  2 

C  RETURN 

2  (BNU3)  *HI3IX 

30  IF  (2  ( IS  UK)  .  LE.  ETKAX)  AO  TO  UQ 
c  isa ;, =« 

C  RETURN 

2 (SNU31 =HT3AX 

40  I?  (V2L  ( BNU3)  .  GE.  S»CSi:i)  GO  10  SO 
IE3R=5 
6ETURN 

50  IF  (SNUB  .EQ.  2)  5STCSN 

IF  (ACLIFT  .LE.  G K A X )  GO  TO  60 

IE3R»2 

RETURN 


C  CCSfOTE  DRAG  AND  LIFT  FORCES 

- - 

aO  8H0*0.  0  256*  EXE  (-0. 10  3*  (2  (  *.S  UK )  / 1 000.  )  ) 

IF  (ZOMCH)  .GE.  10670.)  GO  TC  70 

BH0=0.  00793*  EXE  (-0.  1  56*  (  Z  (JNU3)  -  10670.)  /I  QUO.) 

70  CL=2*ACLIFT/(5E0*  (»  EL  (3  S  U  .1)  *  *  2) /3L) 

IF  (CL  .LE.  CIKAX)  GC  TO  30 

IEBH* 1 7 

RETURN 

80  D8=((CC0*CDK*CI*CI) /CL)  *ACLIFT 

IH=T3D*Dii 

IF  ( (T  V  -LE.  T  8  A  X)  .AND.  <TW  .GE.  0.))  GO  TO  90 
IP  (Tii  .Gl.  T  "  A  X )  IESR=  1  3 

DH*  (RHO*  (7EL  (a  AUK)  **2)/«L)  *  { 0.C5*CDQ  *CDK*  (CL**  2)  )  /2  . 
IF  (T3  D*  C  h  .LE.  0)  IERR=  1 
IF  (IE  RR  -HE.  0)  cETURN 
90  IF  (KNUK  .HE.  HER)  RETURN 

C  EVALUATE  BCK  EING  RON 

OT=T(aNOB)  -r  (SNoa-'i) 

IG1HDG  *A I  AN2 (DI,DX) *57.29578 
■IF  (TGTHCG  .LT.  0.)  TGT HDG=TGTHDG»36 0. 

DX=I  (BNU3)  -X  (2NU3-1) 

D1*X ( a  N  0  H ) - I (BNOa-11 

AC3DG* AT  I N2(  01,0X1*5 7.  29  5  78 

IF  (  ACHDG  .LT.  0.)  ACH DG*ACH EG* 360. 

HCGL3T*  AES  (T  GT  fc£G- AC  EDG ) 

I?  (PQ  PA  LI  .GE. 10  00.)  JO  TO  ICC 
IESB-b 
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BElUaH 

100 

I?  (2  (tlNUH)  .  GE 
IESH=7 

BETUSM 

110 

IF  (Z(HNCS)  -LE 
IESS’S 

REioan 

120 

IE  (DI3T  .LE-  4.< 
IE3R»9 

SETO  fi.V 

130 

IF  (HDGLai  .L2. 
IEEH* 1 3 

BE1URN  _  „  , 

140 

150 

IF  (07  •  CE.  2-3 
IE33=1 1 

TSAX=1 -2*T2AX 

BE133N 

EMC 

:o  i  ic 
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SB3B0DTINE  A I MPT 


THIS  SUESOOTINE  MASK 5  A  LINE  FROM  THE  CUR  SENT 
AIRCRAFT  POSIT! 0  A  TO  ?3  E  I  AG  EX  AS  A  USES  AID  IN 
ALIGNING  30MB  RELEASE  POINT. 


SDEBGUTIKE  AI3FT  (I) 

COMMON  /TAB/  T  A  SG  J , T ABG  Y 
COMMON  /PAH/  X  (200)  ,  1(200  ) 

H2AL*4  rX, H  ,1X1 , Til 
TX=X  (I) 

TX*fjl) 

TX 1=T ABGX 
TI1=TAHG  J 
CALL  GSLT  (1) 

MOVE  TC  CaaBEST  milesicne  coosdinates" 
CALL  GEMCVE  (TX ,  IT) 

Ofi  AW  DASHED  LINE  TC  TA3GET 


CALL  G8DEAW  (1X1,111) 
CALL  GSLT  (0) 

BETURM 

END 


r«no  non  nnoon 


SU380UTINS  SI PIS 

THIS  SUES00TIN3  FE00E3TS  TEE  USES  OPTIONS  AX3  CLOSES 

****************** »*!*«;* ;«»*«*««. ««««,«»  ***«*«*«*««**• 

S  DBHOU  TINE  ELFIN  (LAST) 

cosson  /c fi/  iG3s,ir:;ca,  lExr,  ISAS, ISP, see 
C0330S  /SN/  ISA02 

coaaas  /s:;i/  si:i  >  .sAii.ai  xi ,  saxy.sin  xi  ,  saxxi  .sigxs,  haixi 

CLOSE  GHAPHICS  30CH:.ES  __ 

CALL  OSIEEH 

OLD  ( LAST=  0)  OR  NEW  11X51  =  1)  FLIGHT  PATH? 

IP  (LAST  -EQ-  0)  GO  TO  20 

C  3EQ0EST  USEE  OUTPUT  CSTICSS  ___ 

)0  9BITS  (6,ii0) 

BEAD  (5,*)  LAST 

CALL  PHTC3S  ('CLHSCSS  •  ) 

IP  (LAST.GE.2  .CH.  LAST. LI. 0)  GO  10  10 
LAS .=1 *32*LASI 
20  BEITS  (b  ,50) 

WHITE  (6  ,o0) 

READ  (5,*)  I  ?  NCil 

call  f  areas  (•ctascss  ') 

C  IP  SI  LEST  OSES  CASE  FFCS  UISX,  23X053  ELD  OF  FILS  SAaXSs 

c - 

IP  (LAST  .  SO-  C)  LAST*-)) 

i?  iiPNCH  .ej.  0)  3Eiaa:i 

IF  (IPNCS.SQ.  2)  GC  TC  30 
WHITE  (6 .70 
HEAD  (5, *)  TEXT 

call  ? areas  cclkscsn  •) 

IE  (IPSCH  .  sg.  1)  aEIUHN 

so  warts  (6, sol 

3EAJ  (5,  *)  x5  AS 

CALL  F  ST CSS  < ' CLaSCEN  M  i 

I?T^|I5Aa  .LI.  1)  .05.  (ISAS  .GT.  7))  GO  TO  20 

40  POHSAX  ( 5 1 H  AHE  YC'J  FINISHED  WITH  THIS  FLIGHT?  ATH :  0  =  30;  1  =  TES) 

SO  FOBS  AT  (U2H  OUTPUT  FILS:  J= 0  COTPUT:  1=P001  FILS  ONLY) 

60  FOBS AX  (51H  2=SICE  FILS  ONLY;  3=?00 1  5  SICS  PILES) 

70  PCiSAX  <«SH  SXTENEEE  OOTPOT:  0=NOT  WANTF3;  1=EXTSN0£D  OUTPUT) 

80  PC5SAT  (29H  SIS3IIE  IYPS  ESTWEEN  1  AND  7) 

END 


( 


t 


< 


« 


« 


C  SUEBODTIME  PHE5ET 


t ***************************************************** 

THIS  SOE20UIISE  '.SITES  THE  EQ01  AND  SICt  II  FILES 
FCR  THE  USEE. 


SUBROUTINE  PBESET 

coaaoa  /FAB/  X  (20C)  ,  Y  <2  0  0  )  ,2  <2G0>  ,UDG  (200)  ,CA(200)  ,  ?. A  (  2 3 0 )  ,  VEI  (2 OS 
1^osao3  /pas  v  xm  12  CO)  ,  ydot  (2Co>  ,edct  1200) ,  hno:i  .  as  a 

CC8B0N  /  F  A8  2/  T  UCO )  ,XiiU  N  (7)  ,  (GO  N<7)  ,  EG  Uli  (  7)  ,  XoAH  ,  L  3*,1  ,2S  AH 

coaaos  /cpt/  isas  .if :.ck  ,  iext  .  iSAa,iaF,XEa 

CCaaOH  /NA.V  ISAS  1  (2)  ,  ZSAX2  (2)  ,IUNn,  IA.V2,ID2ST 


DIMENSION  Eli)  (20  J>  -  It  10  (20  J) 

oiasasics  bcstae  (  iooo>  ,  tinx  t  ic) 

DI3SN3I0N  VAT1N2  (208)  ,7ATJ  (206) , 


7  \T5  (20  8) 


C  VULNERABLE  AREA  TABLE  VS  TY?S_1  AM  2  « E  A  t  C  S  S 

DATA  VAT1N2/2*. 4645, 6*7. 1 07 ,2 *.6563, 6 *5. 55 1,2*. 59 63, 6*5. 574, 2*. 6 56 
18, 6 *7. 357, 2*. oS63,d*5. 574, 2*. 65o3, o*5. 551, 2*. 6963, 6*5. 574, 2*. 6566, 
26*7. 35  7, 2*.  69  68.  o*5.  574, 2*.  46  4  5 , 6*.  7  4  3  2 , 2* .  6  5o  3 . 6  *2 . 95  3 , 2  *  .  4  o45  ,  o* 
33.2S3,  2*.656  3,6*2.o56,2*.4o45,o*.7432,2*.6  56  3ro*2.o58,2*.4645,t>*3. 
4298, 2*. 65bo, o*2. 653,  2*.  65o3, 6*5. 551, 2*. o966,o*5.574,2*. 65o3, o*7. 35 
57, 2*. 0  96  3, o*5. 5742*. 65(j3o*5. 551, 2*. o963, o*5. 374, 2*. o5o  3, o*7. 357, 
6  2*.  696  8,  6*5.  57  4, 2*. 4  645 , 6*7.  107/ 

C  7UL:IEHASLE  AHEA  TABLE  3S  TYPE  3  i  EAECNS 

DATA  VAT3/2*  12.54,0*13.  47  .2 *9. 653  ,5 *10. 51,2*9.  63 9, o*11. 15, 2*1 4. 64, 
16*14. 78, 2 *4. 639, o*11. 15, 2 *9. 854, o*10. 31, 2*9. 639, 6*11. 15, 2*12. 64, 6* 
214.  78,2*9.634,6*1  1.  15,3*  1.394, 2*4.762,6*0.240, 2*5. 342,6*7. 432,2*4. 
3762.6*6.240,3*1.394  2*4 . 7b2  ,6 *6 . 240 , 2*5 . 34 . ,  o* 7.  4  32 , 2*  4,  7 o  2  , o«6 . 24 
40, 2*9.  35 3,  o*  10. 2  1, 2* S. o39,o*11.15, 2*  12. ou,oil4.7. 3, 2  *9. 63  3  , o*1  1.1 5, 
52*9-853, 6*10.5  1,2*9. 639, 6 *1  1  .  15,2*12  .o4,6*  U. 7a,  2*9.  639,6*  11  .  15,2* 
612.54,6*13.47/  _ 

C  VULNERABLE  AHEA  TABLE  VS_TYPE_5  i EAPCNS 

DATA  VATS/8* 3  5.J7  ,3*«3.  22  , 3  *4  7.  10, 6*62. 53, 6  *<.7.  10, 3  *u  3. 22, 8*  47.  1C, 
18*62.53,3*47. 10, 3 *5. 76 1,3*27. 45, a*a3. 07, 3* ^7.45, 3*5. 7o1,d*27. 45.5* 
233.07, 3*27.4  5,8*6.76  1,3*4  7.  10,6*62. 5  3, d*47.1 0,3*4  3.22,3*4  7.  10,3*62 
3.53,di47.10,d*55.37/  . 

C  HACAH  CBOSS  SECTION  TABLE  _ 

DATA  RCSIAB/1  9*  1C  CO.  ,19*1  00.  ,  1 9*  1  0.  ,  19*  10  .  ,  1  9*  1  0.  ,  1  9*  1  00.  ,  1 9*  1 J  3  0. 
1,867*0.0/  _ 

C  CALL  EB3S2T  SUPPEESSES  ACT  POSSIBLE  UNDERFLOW  PR03LE3S  THAT  3AY 

C  BESULT  FH03  3 ANI?  U IAT IC  N  OF  SCE  N ABIC  FAB  AHETES5. 

C  CALL  E BR BET  (2C8,50,-1,1,1) 

C  JAB=0 


C  CABD  2  TIBE  INCBESENT  CALCULATION 
TISC=T  (SNUB)  /  1000.  *0.3008 


C  CABO  6  TIBE  INCBEa  ENT  C  A  LCD  L  ATI 0  9  S 

TINKI=Q 
DO  10  1=1,9 

TISK{I)=TI:JKI*T  (BBDH)/10 
TINKI=TINK (I) 

10  CONTINUE 


10  CC 
C  /////* 


'PUNCH  E BOGS AB**** * ///// 


C  OPTION  TO  PUNCH  THE  PC01  CABD  DECK  OB  HICS-II  CABD  DECK 
IF  (IP  NCH.EQ .  2)  SC  TC  30  __ 

C  COBHENCE  ? ONCHED  OUTFIT  OF  THE_?001  CABD  DECS. 


»  • 


nr>o  onnn  nnnn  nno  nnn  nnn  nr.n  nnn  *o  nnn  non  rjnnnr.n  rin 
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IP  (ISXT.  IQ.  1 )  WRITE  (13,  330) 

warrs  (i£,*30) 

WHITE  (18,240)  XGGN  (3)  ,  YGON  (3)  ,ZG0N(3) 
WRITS  (18,220) 
write  (ia,3Soj 


C  SXTENCED  OUTEOT  GETICX 

WRITS  (18,320) 

IP  (IS  XI. .'IE.  1  i 


•  SITS  (18  ,340) 
•.RITE  (18,230) 


C - 


IP  (I2XT .  EQ.  1  j 
WRITS  (19,230) 

WRITS  (18,440)  XGUN  (4)  ,  YGUN  (4)  ,Z3UN(  4) 


EXTENDED  OOTEUT  CFTICN 


WRITS  (18,320! 

•RITE  (18,340) 

IP  (I3XT.NE.il 

IF  (I2X 
WRITE  | 

1T.EO.  1! 
[18,2301 

WRITE  (13  ,  330 ) 

WRITE  | 
WHITS 
WRITE  j 

18)240 

18,220 

1 3 ,  joO 

XGUN  (6)  ,TGUN  (5)  ,ZGUS  (  5) 

C  CARD  1  (VULNERABLE  AREA  TA3LS  VS  TIPS  3  WEAPONS) 

WRITS  (13,290) 

WRITE  (13,400) 

WRITS  (18,310  (VAT3  (I)  ,1  =  1,  2C6) 


IIIENOED  OUTPUT  OFIICN 


WRITS  (18,320) 
IP  (I2XT.SS.  1) 
IF  JISXT.ZO. 1 ) 
WRITE  (18,230) 
WHITE  (18,^40) 
WRITS  18,220) 
WRITS  18,370) 


WRITE  (18  ,  140) 

WAITS  (1  3,330  ) 

XGUN  (6)  ,  IGOK  (6)  ,2GUN(6) 


C - 

C  EXTENDED  OOTEUT  OPTICS 
C- 


c- 

C  CARO 

c- 


iifii 


320) 


WRITE 
IP  (I  . . 

IP  (I2XT.EQ.1 
WRITS  (13,230 
WRITE  (18,240 
WRITS  (18,220 
WHITS  (18,380 


WRITS  (18,340) 

WRITE  (18,330) 

XGUN  (7)  ,  IG  OH  (7)  .ZGOli  (7) 


7  (VULNERABLE  AREA  TABLE  VS  TIES  5  WEAEON) 


WRITS  (18,290 
WRITE  (18,410 
WHITE  (18,310 


(VATS  (I)  ,1*1  ,  2C8) 


C  EXTENDED  OUTPUT  OPTICS  __ 

WRITE  (  18,320) 

IE  (IEXT.NE. 1  WRITE  (18,340) 

IP  jl2XT.EQ. 1 )  WRITS  (13,330) 

WRITE  (18,390) 

_  IP  (IPNCH  .EQ.  1)  RETURN 
C  70HBAT  STATEMENTS 

30  CONTINUE  ___ 

C  CC8BE3C2  PUNCHED  CUTFUT  CF  THE  BICEzII  CARD  DECS 

C.  CHECK  FOB  VALID  SISSILE  DESIGNATION  NUMBER  POB  BICE  II 
jp  AM  .  LS.  7  .  AND  .IS  AN.  G  E.  1 )  GC  TO  40 

C - 

C  THE  J  CL  CAEDS 
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» 


SR  ITS  (17,420!  ISAa2  (1)  ,I3Aa2  (2)  ,ICNB.IANa,ISAS2  ( 1)  ,  13  Aa2  (2)  ,  I  TOR 
IF  (IDtST.EQ. 2)  WRITE  (17,430)  IU1IR 
uit«»  inniioi 


BRITS  (17,440 
WRITS  i 17,450 
WRITS  ,17,460 
WRITS  17,470 


TEE  COTStJT  TITLE 

WRITS  (17,480) 
WRITS  (17,490) 


C  TEE  PHC3LE3  E'JS  IS  EOT  CARDS,  CHECKING  ?0  3  TYPE  0?  013311 
C  TC  INPCT  TO  SICS  II 


WRITE  (17,500) 
IF  (ISAa.tJ.  1] 

WRITS 

(17,670) 

I?  (ISAa.EQ-2) 

WRITE 

1  7 ,680) 

IF  (ISAa.EQ.J) 

WRITE 

( 1 7  ,  o90) 

IF  (ISAa.E0.4j 

WRITS 

(1  7,70  0) 

IF  (I3Aa.Ec.  a] 

WRITE 

f 17 ; 71  of 

if  (isAa.EO.o; 

WRITE 

(17,720) 

IF  (ISAa.EO.  7 

I  Si  SITE 

(17, 730) 

C  TSE  ESSK  CALCULATION  CARES 

C - 

WHITS  (17,510) 

WRITS  (17,520) 


C  THE  RADAR  CROSS  SECTION  TA3C2 

WRITE  (17,530) 

WRITS  (17,540) 

WRITS  (17,550) 

WRITS  ( 1  7 , 5o  j  ) 

WRITS  (17,570)  <R£3TAJ(I)  ,1  =  1 ,133) 


C_THE_SI3ULATICH  TIME  EARAHSTSS3_ 


WRITS  17,580 
WRITE  17,390 


C  THE  fllSSLS  LAUNCHER  LOCATION 


FTF AC=  3,  2e084 
WRITE  (17,600) 

XFSA.1=  XS  A  A*  FT  t  AC 
YFSA:i=  YSAa*FTFAC 
ZFS Afi= 2SAH*FTE1C 
WRITS  (17,610)  XFSAK,YTSAH,Z?SAa 


THE  TARGET  TRAJECTORY 


WRITE  (17  ,o20) 

WHITE  (17,630)  MSUfl 


THE  3IL35T0NE  CARES 


DO  50  I=1fSH0a 
X (I)=X  (I) »FT  FAC 
I  (I)  =i  (I  *FT?AC 
ZtI)=Z  ( I )  *  FT  F  A  C 
TEL  (I)  =  VEL(I)  *  FT  FAC 

WRITE  (17,640)  I  (I)  ,X(I)  ,1(1)  ,  Z  (I )  ,  7  EL  ( I )  ,  CA  (I )  ,  R  A  ( I)  ,  BDG(I) 
)  CONTINUE 

END  OF  PON CH EL  CARES 


WRITS  (17,650) 
WRITS  (17,e60) 


aEiaan 

/////**•••  FC33AT~STATEBENTS  •****///// 


» 


60 

FORMAT 

70 

FORMAT 

80 

FORMAT 

90 

FORMAT 

100 

FORMAT 

110 

FORMAT 

120 

FORMAT 

130 

FORMAT 

140 

FORMAT 

154 

FORMAT 

160 

FORMAT 

173 

FORMAT 

180 

FORMAT 

190 

FORMAT 

200 

FORMAT 

210 

FORMAT 

220 

FORMAT 

230 

FORMAT 

240 

FOHMAT 

250 

FORMAT 

260 

FORMAT 

270 

FORMAT 

230 

FORMAT 

290 

FORMAT 

300 

FORMAT 

310 

FORMAT 

320 

FORMAT 

330 

FORMAT 

340 

POHMAT 

350 

FORMAT 

360 

PORMAT 

370 

FORMAT 

380 

FORMAT 

390 

PCRMAT 

400 

P03M.iT 

410 

FORMAT 

420 

FORMAT 

43u 

FORMAT 

440 

FORMAT 

450 

FORMAT 

460 

FORMAT 

470 

FORMAT 

480 

FORMAT 

490 

FORMAT 

Format 

500 

510 

FORMAT 

520 

FORMAT 

530 

PORMAT 

540 

FORMAT 

550 

FORMAT 
160. ,/ , 
24H 1 30. 

560 

FORMAT 

UH//,<.A4,6d  J03  ( .14.  1fl,,14, 2H)  .  ,1H* ,2A4, 1H  ,I4,;h?») 

(19H//*KAIN  0EG*NPGVM1.,I4,1HE) 

i16H//  EXEC  ?GM=?1  AD) 

42H//STEP LI3  DD  D ISP-SHB , DSN =MSS. F0559 . 21  PSA V) 
47H//GC.?707FC01  DD  0 SIT=SYS D 4, S2 »CE= ( CYL.  ( 1 ,  1  ,)  )  , ) 
41H//  CCs=(REC?M=»V3S,  LSECL=4  J4,aLKSIz2  =  J23o)  ) 
(22H//GC-?T09FO0  1  3D  DUMMY) 

I25H//GC. f 1C6  cJO  1  3D  SYSOUT=A) 

13H//GC.  2TC5  POO  1  JD  *) 

IVdl.I.J.C.G.O) 

2  HOI) 

2H02 ) 

2  HO  5  j 

42H  AI3CBAFT  CCMBAT  SO RV 1 7  ABILITY  SCENARIO) 

I 7 HO.  12,0,  ,F  7.2,  9H,  10U  CCO.  , ,  ?  7.4 , 1H/) 

10  (F  7  .  1 ,  1  X)  ) 

2HJ4) 

2  HO  3) 

3(1X,?7.C)  ,  1  CH  0.0,360.3) 

19H0,  1,1,1,  1,  1,0. 0,  50.) 

(7H1  . 1  ,1.0) 

(2H0<S) 

3H1^9,3(1I,F7.3>) 

{ 4 9H  VUISERADLE  AREA  TABLE  VS  TYPE  1  AND  2  WEAPON'S) 
(8F3.  3) 
j  2H1 2) 

i  13ri  1 ,  1,  1,1,  1,1,  1) 

(13H0, 3  ,0,C,  1  ,1,  t) 

20H0,2,1,i;i,1  0.3,50.0) 


:ype  5 


WEAPONS) 
•'ZAP  C  3 ) 


570 

580 

590 


610 

620 

630 

640 

650 

660 

670 

630 

690 

700 

710 

720 

730 


1.3H90.) 

FORMAT 

FORMAT 

FORMAT 

10.) 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

F08MAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

END 


2  CHQ  ,  3  ,4  ,4,1  ,1  ,o.  0,50.0) 
tO HO  ,  j,j,4,  1 ,  1,o.  J,  5 3  .  v.) 

2030,5,3,^,1  ,1,3.3,50.0) 

I  2H/*) 

(43H  V01XFSA3LE  AREA  TA3LE  7a  TYPE  3 

42H  V  DIKE?  ABLE  AREA  TABLE  VS  TYPE  5  . , 

(  2  8  H/  /  EAEC  ?  GK=  t  ICE  ,  3  EGION=  1  6CK ) 

IUUH//SXEPLI3  DO  DS.7  =  MSS.?D55  9.MIC2SAV,DIS?»SdH  ) 
(23H//ETC6E00  1  DD3YSC0T  =  A) 

(15H//FTC5F00  1  OD  *) 

(2601) 

( 55HAE  325  1  ***  **  3U  H  V  IV  A3ILI I Y  SCENARIO*****  SAM  ENCOUNTER 

12 HO  2) 

2H06) 

97^ HO, 8X, 2  HO., 9X  ,  1H0.4X,  1H0 , 4X , 1 H 0 , 8X , 2H0 .  ,  31 ,2H0  . ) 

7X,  3d 23.  ,  3X  ,2319, 4X  ,  187, 4X.1  H  1) 

(8X,2H0.,7X,3!110.  .  7X  ,  3  H20  .  ,7X  ,3  H  30  .  ,7X,3H40.  ,  7X  ,3H50  .  .  7X ,  3H 
X  ,  3  H70  .  ,7 X  ,  J  H60.  ,  7  X,  JH9C.  ,  oX ,  4(1103.  ,oX,4H110.  ,6X,4H12&.  ,  a  X, 
/,6X,4H140.,6X,4H150.,6X,JH160,bX,4B170.,oX,4H1d0.) 
(SX.4H-90.  ,6X,4H-&0.  ,6X,  48-30. ,fiX,2R0.,7lc, jfl  30.  ,7X,3H60.,7X 

j7|10.2,/,7F1c.2,/,5F10.2) 

(7X,3nQ.5,7X,  3H0  .  1  ,7  X  ,  3H3.  0, 7  X  ,3  HO  .  0 , 3X  ,  2  HO.  ,7X  ,3H30  .  ,  8X  ,  2H 


I2H11) 
2X , ?8  . 
2H12) 

9  X  ,  1  H  1 
F7.1 ,4 

m\ 

(9X.1H1 
9X, 1H2 

191,133 
9X, 1 H4 
9  X  »  1  H  5 
9  X ,  1  H  6 
9X, 1 H7 


2,2110.2) 

,2X,I3,4X,1H1,4X,1h0,3X,2H0.,3X,2H0.,3X,2H0.) 
F10.1  ,3F6. 1 ,4X,2H0. ,4X ,iao.) 

,4X,1H1,4X  ,1H4 ,4X,1H1  , 3X, 2H10,4X,1 HI, 4X, 1H0) 
,4X,1H  1,4 X,  1H4, «X, 1H1, 3X.2B13,4X,1H1,4X, 1H0) 
,4X,1H1,4X,1H4,4X,1H1,3X,2310,4X,1H1,4X,1H0) 
,4X,1H1,4X,1H4,4X,1H1,3X.2al0f4X,1H1f4X.1HU) 
,UX,  1H  1,4  X  ,  1H4,  4X,  1H  7  .  3X  ,  2H  1  3,  4X,  131 , 4X,  1H0) 
,4X,1H1,4X, 1H4,«X,1H1 , 3X,2H10,4X, 1  HI, 4X,  1H0) 
,UX,1H1,4X,  1H4, u X , 1 H  1  ,  3X,2H10,4X,1H1,4X,1H0) 
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APPENDIX  G 


PROPOSED  TEMPI P  LISTING 


C  .IAIN  PiOGRAa  1b/a  A  fi/  8  9  V  ERS  1 0  U 

C  CCNIECLS  THE  EXECUTION  Cr  THE  ENTIRE  ?  ROG  RAN . 

C  TRIG  IS  THE  PROPOSED  20 DIFICATIOM  J  F  HIE  JOHNS' 

C  IT  Will.  WORK  FOB  SC.1E  CASES  BUT  NOT  FOR  EVERY 

C  CASE.  TEE  FLIGHTPATH  PACKAGE  (3IGCAL  PACKAGE) 

C  IS  AISC  LISTED  SHEAR  AT  ELY  AS  Til  FORTRAN.  THE 

C  Til  ERCGPA2  IS  SET  UP  TC  « RITE  TO  FILS  AND 

C  ICES  NCT  CONTAIN  ANY  GRAPHICS  DEPENDENT  CALLS. 

C  —  D.A.I.  IblASN#  — 

c 

C0.110N  /RSI/  .1  IN  X..1A  NX,  HINT  ,  2  A  A  Y  ,  .11  N  X  1 ,  SAX.i  1  ,  .11.1X2,  1  AX  X2 
CCSKON  / LCC/  XI  .Yl.SV/l  ,lTa,LIS2 
ccaaoN  /in/  ieau: 

C0H20S  /  A  EC  1  /  WX  (10CG)  ,  NY  (1000)  ,  WZ(1  COO)  ,  wrj  / 10  JO)  ,  WV  (1000)  ,  WW  ( 10  CO 
1)  ,WH  (1  00  0)  .  V?  (  100  0)  ,  W3(  l  Od'O)  ,  AG  (1000)  .  I  (1  000)  ,ICT 
CO.ISON  /AEC2/  XNSW.XIEaP ,  XOLD  ,  Y  NEW ,  Y TEN E , YOLO, ZN S W , ZTE2P.  SOLD 
COMMON  / AED2  /  IS  I AcL  , VIA  X  ,V  1AX 1 ,  V.1AX 2 ,  DELTEi,  0 Lit V,  DELTAS 
CCaaCN  /PAH2/  XGUK<7)  ,  Y  GO  N  (  7)  , ZGU  N ( 7 )  ,  X3A2  ,  YS  A2,  ZS«  .1  ,J  2  (7 ) 

common  /cpt/  igun  .ipnch  ,  iext  .iSAa.ia  p, xer.impz 
ccaaoN  /nam/  i.*u:ii(2)  ,i:.a.12(Z)  ,ionr,  ilNa.iDtsr 
coaaoM  /TAB/  tabgj.targy 

CALL  EB2SET  (207,256,-1,1,209) 

ICT=2 

VHAX»V-AX1 
CALL  3EGIS 
CALL  SCENE  (3,C) 

BEWIND  1C  __  __ 

C  DBAS  THE  FIXED  GUN  SITE  £  ITS  ENGAGEMENT  CIBCLE 

CALL  GUNICC  ( )iG uN  (7 )  ,  YG  U  N  (7  )  ,  CS  (7) ) 


C_IGUN=1=*=>  BEAD  USE?  DEFINE  ABLE  GUN  SITES  FBC1  TERMINAL 

1  1 -SS-IC 

C  READ  COMMENTS  IN  WISCCW:  GRAPHICS  INITIAIICER 
CALL  WIN  (BISX.aAiX, 18000., 12CC0..0) 


C  G SLI  DEFINES  THE  TYPE  OF  LIME_TO  EE  DRAWN:  EOLO,  DASHED  ETC. 

C  GEGARC  DRAWS  ABCS  AND  IF  SPECIFIED,  WHOLE  CIRCLES 

CALL  GEGARC  ( 3  COO . , 3  000 . ,TARGX,TARGY , 1. , 1. ,2.) 

CALL  GSLT  (0) 

CALL  GSFRCS 
IEBa»16 

CALL  ERReit  (I ERR) 

DC  XO  1=  1,o 
10  CONTINUE 

I£Bfi=0 

IF  (INPZ.NS. 1)  GO  TO  20 
CALL  X YPT 
ZGON  (I)  =20. 

GC  TO  30 
20  CONTINUE 

CALL  XYPT 
CALL  Z  VP  T 
ZGUN (I) =Z1 
30  CONTINUE 

XGUN (I)  =X1 
TGUN  (I)  *Y1 


IF  5UH  TYPE  3,  CHS  FOB  3  K3  SEPARATION  Fa  BBIDGE 


ir  (T  . 3E.5)  CALL  GUSCHK  U1,Y1,IZ33) 
IF  (1XBR.NE.0)  GO  TC  10 


D  S  AW  GUN  SITE  AND  ENG  AG  E  HEN  1 


CIRCLE  OF  SELECTED  GUN3ITSS 


CALL  GUNICC  (XGUN  (I)  ,YGUN(I)  ,G3(I)) 
WBITE  (1C, 250)  XGCN  (I)  ,  YGUN  (I  )  ,ZGUN  (  I) 
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COUTH!  UE 


40 

c— 

C  3240  OS  IK  DEFINEABLE  SAM  SITE  ?B  TE  6313  41. 

C - 

50 


60 


70 


CCNTIU  OS 
I£S8=14 

CALL  E3SMK  (IEE8) 

IE  (IMPZ.NE.  1)  GO  TO  oO 

CALL  XT?T 

ZSAJ«2Q. 

GO  TO  7C 
CONTINUE 
CALL  XYPT 
CALL  TVPT 
ZSAM=Z  1 
CCSTI30 2 
XSAM*X  1 
TSAN=T 1 


C  7EHIPY  3AM  SITE  AT  LEAST  oKM  EM  WSST2B3  EOUNDAaY 

CALL”  AMCsit  (xl.IESE) 

IF  (I2R8.NE.J)  GO  TO  50 

C  D  8  Ail  SAM  SITE 


CALL  JUUl CC 
waiTE  I 


MLCC  1  ISAM  ,  tS  AM,  1  50.  ) 
10.25J)  X5AS, ISAM .ISAM 


GO  TO  12  C 

C  IGUN«2=*=>  HEAD  CCS  SITES  ’ROM  DATA  FILE 

80  ""  *  . -------  -  -  — 


90 


COM TIM  US 

IF  (IGOS. ME.  0)  GO  TO  100 
OC  90  1=1,0 

BEAD  i1J,_:>0)  XGGNU)  .ICOMtl)  ,ZGUN(I) 
CONTINUE 

BEAD  (10,253)  ISAM, ESAU , 33AM 


C  OS  AW  GUN  SITSS  A^C  f.VCAf  SMENT  C23CLZS 

100  COSTINGS 

DO  110  1=1,5 

CALL  GUN  ICC  (ICON  (I)  ,YGJM  (I)  ,  GP  (I) ) 

110  CONTINUE 

CALL  GUNLCC  (ISAM, IS  AM,  15  0.) 

120  CONTINUE _  __  _  _ 

C  THIS  SECTI0N_ACC3ETS  THE  FLIGHT  MILESTONES 
IEBB-15 

CALL  SEHMK  (IEB8) 

BEHIND  1  1 


_BEAD  BILES  TONES  FHCM  THE  DISK 
30  IP  (INP-NE.Q)  GC  10  1U0 

BEAD  (  11  ,2bOi  T  (ICT)  ,«X  (ICT)  ,  SY (ICT)  ,WZ  (ICI)  ,  WO  (ICT)  ,  W  V  (I CT)  ,  WW  ( IC 
IT)  ,  «H  (ICT)  ,  WP  { ICT)  ,‘«o(ldl)  ,  26  (ICT)  ,LTE 
LT52=LT  B  „  _ 

LIH«65  =*>  CALL  PCS  AIM 

LT3=66  ==>  CAIL  FCS  ECME  BE  LEAS  2.  ALSO  ALLOWS  INC3EASED  AI ESPIED. 
LTR-82  =*>  CALL  FCB  PBCGoAM  T EE  11 1  NATION 

LTE»83  «>  CALL  TO  SEEAK  OFF  INPUT  SOUTINE  AND  SESTART.  MEANT  TO 
ALLOW  CHANGING  MIND  W H HE  IN  MIDDLE  OF  PKOGEAM. 


IF  (LT8.EQ.65.CE.LTE2.EQ.65)  CALL  AIMS; 

IP  (LT8.  EC.bo.CB.LTSc.EQ.  ob)  V«AI=VJI  AX2 

IP  (LTS.2Q.82.CS.LT32.SQ.82.ANC.IMP. NE.O)  GO  TO  180 

IP  (LT8.  EC.83.CS.  LTS2.EQ.  83)  GC  TO  140 

CALL  GBAFIX 

ICT=ICT*1 

GO  TO  13  C 

8EAD  BILES  TONES  FSCM  THE  TS  E  MIN  A  L 


140  CONTINUE 

CALL  WIN  <BINX,aAXX, 18000. ,120C0.,0) 

CALL  GSLT  (1) 

CALL  G2GABC  (6  C  CO.  ,  6  000  .  ,  IA2G  X  ,T  ABG  Y  ,  1 .  ,  1 .  ,  2 . ) 
CALL  SSLI  (0) 

CALL  GSF3CE 
CALL  XIPT 
CALL  Z7PT 


C  CQ3FCIE  FLIGHT  PARAMETERS  AND  2HECS  ?Ca 
IEH3*0 

CALL  HBRCEK  ( I E  ?  R ) 

IF  (XEHa.Eg.O)  GO  TC  15  J 
WHITE  (6,270) 

HBITE  (6,280) 

HEAD  (5,*)  ICCS 

CALL  FSTCMS  J'CIHSCSX  ') 

IF  (ICOH.NE.  1)  GO  TO  150 
CALL  XXP1  __ 

C  WAIPOINT  ACCEPTED,  FIU  III  THE  COEVE 


EH.2.C3S  OF.  03  EH  COBBAN DS 


150  CONTINUE 

CALL  dXGCAL 
ICT=IC  T ♦  1 

IF  (XOLD. N2.XNEH.CR. TOLD. ME. IKES. OH. ZOLD. ME. DREW)  GO  20  150 
C  LTB=b5  *=>  CALL  FCS  AM 

C  LT8*66  ■=>  CAIL  FC5  3CB3  RELEASE.  ALSC  ALLOWS  I  ACHE  AS  ED  AIRSPEED. 
C  LTE*82  =*>  CALL  ECF  FEOGFAB  TEH  BIN AT  ION 

C  L1B»6J  *=>>  CAIL  TO  3  HE  AN  OFF  INPUT  ROUTINE  AN  L  HESTAHT.  MEANT  TO 
C  ALLOW  CHANGING  BIND  WHILE  IS  MIDDLE  OF  PH0G2AM. 


It  (LT3.  EC.o5.Cr.ITT2.3J.65)  E  ALL  A  IBM 

I?  (Lr3.Et.66.C5.LI32.2w.o6)  VPAX=7MAX2 

IF  (LT3. EC.d2.C6.LTB2.ZJ.c2.ANL.IM?.  M2.0)  GO  TO  130 

IF  (LT3.EQ.33.CE.LIH2.2J.H3)  GC  TO  160 

GG  TO  1 4  C 


C  THIS  SECTION  RESETS  THE  OATA 

160  CALL  SCENE  (1.ICNT) 
BEHIND  19 

C  D HAW  BETAINE!  MILESTONES 


BEHIND  11 

ICI*ICNT 

DO  170  1*1,  ICT 


BEAD  (11  ,260)  T  (ICT)  ,WI  (ICT)  ,  SX  (ICT)  ,HZ  (ICT 
T)  ,WH(ICT)  ,»?  (ICT)  ,5iS  (id?),  56  (ICI),LTS 
LTS2*L TB 


)  ,«U (ICT)  ,WV  (ICT)  ,  WW  (IC 


IF  (LIB. EC.33.C5.LX3J.3Q. 83)  GC  TO  140 
CALL  G  3 A  FIX 
CONTINUE 
GO  TO  IOC 


0)  GO  TO  180 


C  THIS  SECTION  IS3MINATES  THE  P30GBAE 


180  CONTINUE 
LAST-ISP 

CALL  ELFIN  (LAST)__  __ 

C  CONTEST  ANGLES  FRCB  HADIANS  TC  DEGfEES 


190 

C - 


DO  190  1*1, ICT 
HH  (I)  *HH  (I)  *HTC 
HP  (IS  *HP  (I)  «RTD 
SB  IlS  *aa  (I)  «BTL 
CONTIN  US 
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C  W BITE  THE  JCL  CARDS 

IF  (IPNCH.LI.1) 
I?  jlPNCE.SQ. 2) 
WHITE  (6,290) 

3  BITS  (6,300) 
WHITE  (6 ,31 0) 
WRI  TE  16,320 
HEAD  (5.4C0) 

C  ALL  F  ETC 33 
IF  ( IP  NC  H. SO  .'1 
WHITS  (6,330) 

3  HITE  (6,300) 
WHITE  (6,319) 
WHITE  (6  , 320) 


200 


SIC  ? 

GC  TC  200 


isami  (i)  ,r:iisi  (2) 

■  "  SCSS  •  ) 


(  1  CL3 


GC  IC  210 


210 


HEAD  (5.400)  INAM2(1)  ,IHAM2  (2) 
CALL  FETCKS  ('CLHSCRH  ') 

WHITE  (6,340) 

HEAD  (5,*)  IUNB 

CALL  F8TCMS  ( 1 CL3SCF  N  •) 

WRITE  (6,350) 

HEAD  (5,*)  I AH B 
CALL  FSTCMS  ('CLRSCSN  ') 


C  CHOOSE  DESTINATION  FOB  OUTPUT:  ? SISTER  OH  READER  PILE 


C - 

220 


WHITS 
WE 

REJ  ^  _ _ 

IE  ((lESST.NE.  1)  .AND.  (IDZST.  HE. 2)  ) 
CALL  ? RTCHS  (’CLRSCRN  ') 


(HITS  (6,360) 

(HITS  ?6 , 370 ) 

IE AD  (5,*)  IDEE! 

CE  (  (IEEST.NE.  1)  .  AND .  i 


)0  10  220 


C  PRESET  LOADS  MICE/E001  DATA  FILES  CNTO  OSESS  A1  DISK 


CALL  ??.E2IT 

DUMMY  INPUT  ROUTINE  IC  LET  USER  KSCW  NRESE  S/HE 

IS  IN  THE  PGM 

WHITE  J6.3bU) 

BEAD  (5,*)  I GO 

CALL  PRTCMS  ('CLRSCSN  ') 

FORCE  CALL  TC  CMS  TO  SUBMIT  DATA  EILES  TO  BATCH 

PROCESSING  PGM 

230 
240 
C- 


(IPHCH.2Q.2)  GC  TC  230 
I  FRTCMS  ( '  iXEC  '.'SUBMIT 
(IPNCH.ZQ. 1)  GC  TC  240 
EXEC 


IP 

CAL^ 

IP  (IPNCH.SQ 
CALL  FRTCMS  ( 
CCNTIH 02 


'  ,  *  30  3  n  IT 


POO  ','OATA 

■TICE  ' ,  •  DATA 


C  DU2SY  INPUT  ROUTINE  TC  LET  JSE3  KHCW  PGM  TE  HR  IN  ATI  ON  HAS  BEEN  REACHEC 

c  (6,390)  * 

5,*)  IGC 

3P10.2) 

1 1  (F  10.  1 ,  IX)  ,13) 

3H  ) 

54H  DC  YCU  WANT  TC  FIX  THE  Ei 
40H  TO  SUBMIT  ?001  TO  BATCH 
3 1 H  A  JC3  CCST30L  LANGUAGE 
5 1 H  ENTER  A  NAJ  E  —  IT  MAY  CC 
25H  **DC  NOT  INSERT  3IANKS»*) 

44  U  TO  SUEBIT  *  *  M IC  E  *  *  TO  3A TCH  100  MUST  CREATE) 

46H  ENTER  YOUR  USER  IC  NUMBER  —  WITHOUT  THE  '•?'•.) 

46H  ENTER  YOCB  ACCT  NUMBER  --  FBOVIOED  si  THE  PROP.) 

UIH  CHCCSc  TEE  DESTINATION  F Cu  YOUR  OUTPUT:  ) 

‘  '  ‘  PILE) 

SUBMIT  YOOR  PO J 1/M  ICE,  1 4 H  DATA 


250 

WHITS 
READ  ( 
STCP 
FOUR AT 

260 

FORMAT 

270 

FORMAT 

280 

FCRMAX 

290 

FORMAT 

i?0° 

FORMAT 

FORMAT 

320 

FORMAT 

330 

FOHNAT 

340 

FOHMAT 

350 

FORMAT 

360 

FCRM AT 

370 

FORMAT 

380 

FORMAT 

390 

1  FILE! 
FOHMAT 

400 

FORMAT 

END 

!SROS:0=HO,US2  THE  POINT;1=YES) 
YOU  MUST  CREATE) 

’CARE".  ) 

ICNTAIH  UP  TO  8  CHARACTERS;) 


FORMAT  ( 3 CH  1=EEIHTER;  2=YOUS  READER 
PC8MAT  (46a  ENTER  ANY  «*MUM3E8*»  TO 
1  FILERS)  . ) 

- J  (4Ca  ENTER  ANY  **NUMBES»*  TO  TERMINATE  T2PI?) 

(2A4) 
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uuuuu  uuu  *-  n  «•»  uui: 


**••<**•***  ******************  M**>M»l«l***M*l***«*lty**«MMf 

saEaoQTiHE  a£Gia 

THri  saeaoaTiys  initializes  the  graphics  and  bequests 

T  E  £  USEE  OPTIONS. 

**«*******»»*»******»«»**»»»*■*** ««»»*****  ft***************************** 

SUSBOUTINE  BEGIN 

COHHON  /Oil/  IGLN,IISC£I,IEXT,ISA2,IME,KEa,iaF2 

BEAD  OSES  OPTIONS 

CALL  F  3TCSS  ('CLHSCSN  •) 

0  WBITE  (6  ,  UO) 

BEAD  (5,«)  IGUN 

IP  (  (IGUN.NE.  G)  -AND.  (IGUH.UE.  1)  .  AND.  {IGUN.  HE. 2)  )  GO  TO  10 
CALL  F5IC23  (  1  C  L  3  S  C  5  '.i  ') 

IF  (IGUN.NE-  1)  GO  TO  20 
MBITS  (6,50) 

MBITS  J6.60) 

BEAD  (5,*)  IMPS 

CALL  PBTCNS  ('CLBSCBS  ') 

0  MBITS  (6.70) 

BEAD  (5,*)  ISP 

IF  (<Ii<?.NE.  0) -AND.  (I2P.  GE.  1)  )  GOTO  20 
CALL  FBTCMS  ('CLaSCaN  ') 

0  MBITE  (6,30) 

BEAD  (5,*)  KO N 

I?  I  (KOS.NE. 1 )  .ANC.  (FOB. SE.2) )  GOTO  30 
CALL  FSTC2S  (  ' CLESCr  S  ') 

IP  (KON  .NE.  1)  CALL  CONCHG 

IN  IT  IA  LIES  THE  GS  A  EH  ICS  AND  CLEAS  SC?.  EES 


CALL  OSIN  IT 
CALL  GSEBSE 
HET73N 

FOoNAT  ( 5 oil  •  CSIS ;  C  =  0  ISK  F ILZ  ;  1=T£A..I  N  AL  ;2 -iSi 

k&BHAT  (S5H  **  CHCICE  1  NEGATES  HAYING  TO  GO 

FOBS AT  (S5B  G3N/SA3  SITS  ALII TUOE : 1  *  FIX  ED  TO 

^ORHAT  (5CH  AIBCEAFT  aiLZSTONE  INPUT:  0=DI3K 
PCSflAT  (503  FLIGHT  &  GArt  i  ?  AS  ANETZS3  :  1  =  0 EFAi. 

END 


:  (GOUGE  GET  OF  ) 

IS  TO  T HE  ALIEN: 

1 ;  2*US ES  DEFINE.) 

.E:  1»? ESN  INAL) 

;  2=  USEE  INPUT) 
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GO  TO  10 


t  ITS  PARAMETER  VALCES  TC  THE  TERMINAL 


BRITS  (6,420) 

S  SITS  (6 ,450)  CLMAX,'«L,  VS  TALL  ,  AN  MAX ,  HT3 IN ,  HTMA  X 
BBIT3  (6,410) 

S  BIT  S  6,450)  fOFKIS,A??MAX,THNAX,CDC,CDK, VMAX1 
BRITS  (6,440) 

B  BITS  (6  ,450)  VBAX2.TARGX ,TARGX 
GO  TO  10 

l»E  PARAMETER  VALCES  CN  DISK  A  .BO  RETURN  TC  CALLING  SOU  TIN  l 
REWIND  16 

WRITS  (16,450)  CLMAX,WL,S?OMIN,GMAX, HTMIN.HTMAX 
BRITS  (16,450)  FCPMIN.APPBAX.TMAX.CDO.CCK,  VMAX1 
WHITE  (16,450)  VMAX2,IARGX,TAHGX 
RETURN 

FORMAT  (2SH  ) 

FORMAT  (5Ca  SELECT  PABA.12TSR  TC  3E  CHANGED:  1=NG  MORE  CHANGES) 
FORMAT  (4dH  2  =  MAX  LIFT  COEFF;  j=WING  LOADING;  4  =  5 TALL  SPEED) 

FORMAT  47H  5  =  BAX  3  FORCE;  6=MIN  ALT:  7  =  0AX  AL?(<2200  ITS)) 

FCRBAT  42H  d*CISIANCE  TO  TARGET  3EFCR2  PCPCJP  ALLOWED) 

PORMAT  63H  9  =  MAX  APPROACH  ALT;  10=MAX  1/  <i  RATIO ;  11=JRAG  COEF.  S/ 
10  LIFT) 

FORMAT  (44H  12=LIET  CPAG  CONSTANT;  13=MAX  SPD  WITH  30M3) 

FORMAT  (44R  14=MAX  SPD  W/C  SOME:  15= I  AS GET  COORDINATES  ) 

FORMAT  (4  3H  16  =  EEAC  PARAMETER  FILE:  17=LIST  PARAMETERS) 

FORMAT  ( 27H  ENTER  MAX  LIFT  COEFFICIENT) 

FCRBAT  |  1 SH  ENTER  BING  LOADING) 

FORMAT  ( 1  EH  ENTER  STALL  STEED) 

FORMAT  26K  ENTER  MAX  3  FC3C2  ALLOWED) 

FORMAT  ( 23 H  ENTER  MINIMUM  ALTITUDE) 

FORMAT  (47S  ENTER  M.lRIEUM  ALTITUDE  {IE  SS  TUAN  2JD5  JET  £23)  ) 

FCEHAT  (55n-  ENTER  MINIMUM  DISTANCE  TC  TARGET  REPOSE  POP-UP  ALLOWED 

Format  (32h  enter  maximum  apppcach  altiiode) 

FORMAT  (353  ENTER  MAX  THRUST  TC  ,  El  3  ,iT  ALLC.ED) 

FCSfUT  (37h  ENTER  CRAG  COEFFICIENT  FOR  2250  LIFT) 

FORMAT  ( 25H  ENTER  LIFT  DRAG  CONSTANT) 

FORMAT  ( 3  2H  ENTER  MAX  SPEED  CABS  XING  A  ROMS) 

FCRBAT  ( 39h  ENTER  MAX  STEED  AFTER  COM3  IS  RELEASED) 

FORMAT  (33H  ENTER  TARGET  X  AND  X  COORDINATES) 

FCRBAT  ( 55H  MAX  CL  BING  LD  STALL  SPD  MAX  3  MIN. HT.  MAX.HT. 

^CRflAT  (7SH  PCP-UP  CIST  APPS.HT.  MAX  THRUST  CDO  DRAG  CONSTANT 

1  MAX  SPD  WITH  5CMB) 

FOBBAT  (55H  MAX  SPD  W/O  30M3  TARGET  X  COORD.  TARGET  X  COORD. 

IfCRfiAT  (6F12.4) 

END 


» 


t  **********  ** 

C  SUEHCUTINE  SCENE 

C  1  HI  S  POETISE  0HASS  THE  ATTACK  NAP  AND  ASSOCIATED 

C  DISPLAYS.  DUPING  RESET  IT  OBTAINS  THE  LAST  NILE- 

c  *  ************;?*'n*2;»;*Df  *i<****:**£°  *«I*«ij;«*»»****  *********** 

SU3HOUTINE  SCENE  ( 1 3  C  ,  I  C  N  T) 

CCSKON  /  8  3 1  /  NISX.NAXX.SINY  , 8AXT , 813 XI , 2AXX1 , 313X2, 8AXX2 
cchson  /ns/  iba'jd 

CSXXC  N  /ASCI/  «i  ( 1000)  ,  W  Y  (130  0)  ,*2 '1  00  j)  ,  *(J  (10  DO)  ,  A  V  ( 1  DO  0 )  ,  *  *  (IOCS 
1)  ,  AH  (1000)  .3?  (  IOiJO)  13-0)  ,  SG(1030)  ,T(l3oJ)  ,ICT 
C08803  /TAB/  I  A3  j  X , I ARG  Y 
DIMENSION  7 EL  (200) 

VEL  (ICNT)  *iORT  (»U  1 1 C NT)  «*2*«V  (ICNT)  **2*»«  (ICNT)**2) 

SEAL’S  3  X  ,  Si 
LOGICAL  *1CNAES(20) 

ICNI=0 

C  ESASE  THE  TEK618  SCREEN 

CALL  GSSSSE 
CALL  DSTEPN 

C  HEAD  OSES  OPTIONS: ECRCSR  AND  533/SISS  POSITS  OR  FILL  IN  NAP  ALSO. 

■  HITS  (6,100) 

HEAD  (5,*)  SAP 

IF  (IRC  .20.  0)  GC  TC  10 

M  SI.  3  7b,  90) 

HEAD  (5,*)  ICNT 

CALL  FETCKS  ( ’ CL3SCS  N  •) 

C  DBA*  THE  X ,Y  BA? 

C  THE  ROUTINE  HEADS  X,Y  PAIRS  F SO 3  FILE  J9.  A  -2.0,0  INDICATES 
C  EEC  C?  FIL  2,  -0.  5,0  INDICATES  A  NO  VI,  ALL  OTHER  « ALLIS  \..Z  2C- 
C  5IIIVE  AND  RESULT  IN  A  DOAN  IC  THAI  POINT. 

C  3 E- INITIALIZE  THE  TES618  SCREEN 

10  CALL  OSINIT 

CALL  AIN  (MINX.NAXX,  18000.,  1 2CCQ. , 1) 

IF  (HAP  .iq.  0)  GC  IC  AO 
BEHIND  9  , 

HEAD  (9,80)  G  X  ,G  Y 
20  HEAD  (9. 80)  GX.GY 

CALL  J  BVECT  (O-.GX, GY) 

30  HEAD  (9,80)  G  X  ,  G  Y 

IP  (GX.LT.-1)  GO  10  UO 
IP  (GX.LI.  0)  GO  TO  20 
CALL  G  BVECT  (1  .,GX,GY) 

GO  TO  30 

C  3  AES  THE  TARGET:  GCNLCC  PUTS  A  ♦  At  GUH/BISS  POSIT  AND  CIHCUHSC3IHES 

40  CALL  GUNLOC  <  T  ABGX  ,  T  ARG  Y  ,  150  .  ) 

_  CALLJGUNLCC  ( T ARGX ,T AEG Y , 300 . ) 

C  DHAH  TIC  NARKS  EVERY  2000  NTHS 

DO  50  1*1,3 

IW*2*I  __ 

C  THIS  ELOCK  DEAHS  TEH  X-AXIS  TIC  NABKS 

C  CALL  GBVFCT  (0. , 1*2000. , ~000. } 

CALL  G3VECT  ( 1  .  .1  *20  CO.  ,  0  .) 

CALL  GAXITC  ( 1  » IN  ,2 , CHARS ) 

CALL  G3CHAR  ( I  *20 CO.  , 0.  ,  2 .,  0 .  ,  2, CHA R  S) 

C  THIS  "eLOCS  DBAWS  TEE  Y-AXIS  TIC  NARKS 

C  IP  (I  .GE.  6)  GC  TO  50 

CALL  G  BVECT  (  0  .  ,  1  COO  .  .1  * 2  000  .  ) 

CALL  GBVECT  (  1 .  ,  0  .  .  2  000  .  *  I) 

CALL  GAXITC  (  1  , 1 »  ,  J . CHA RS ) 

CALL  G  BCE  An  (-60- ,1*200  0.  ,2  .  ,  0.  ,2  ,C3  AES ) 
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nnn-j  a*  nnn 


50  CONTIS  GE 
I1  =  «XN  Y 
I2=HAX  I 

H*xr=3i.vr-i5 
aisY=ai:nt-200 

CALL  HIN  (aiSX*27S 

CALL  -  "*  ■ 

CALL 

CALL  GSFECE 
SAXY=I 2 

sisy*i i 

OS  AW  TEE  ALTI2ETES 


Y=aiNX-200 

L  WIN  <aiSX*27S,aiNX  +  220Q,  155.  ,  185.  .  C) 

L  G  DC  HAS  (1C., 110. ,2. 5,0. ,50, •  X&Y  HA3K3  Z 3  2 300  AETES 
L  GSCEAB  ( 1 0. ,40. ,2. 5 , 0. ,2 5 , • ZZSQ  DEGSEES  ALONG  i  AXIS 
l  i:s?sr- 


ixtvls*  j 


o 


CALL  3  IN  (HI  NX  1 ,  .1 A  X  X  1,350.,  22CC.,  1) 

DO  oO  1=2.20,2 
CALL  G 57  ECT  ( C .  ,  0  .  , I*  100 . 1 
CALL  G87ECT  ( 1  .  ,3 EC .  ,2« 1 0 3. ) 

1 , I, 2, CLASS) 

0.  ,I»1C0.,  2.  ,0.  ,  2, CHARS) 


CALL  GAXXTC 
CALL  G3CHAH 
CONTIN GE 
DO  70  1=  1,6 

CALL  G3VECT  ( 0 . , I *5 0 . ,  1  0 0 . ) 
CALL  GSVECT  < 1. , 1*50. ,3. ) 


0  CONTINUE 

SABS  a£S2T  PCINT  VILGCXT  X  AND  ALTITUDE  AS  G  r  EE  AT  CB  AID 


80 

80 

100 


IF  (I2Q.HE.0  .A ED.  ICNT  .GT.1)  CALL  G2G0CT  (9.  ,VEHIi 
8 AXY=rt IN  Y_  15  1 

aiNY=ai:i  x-200 

CALL  3  IN  (alNX*28C0,SI3X*3900 , 195., 1  65. .0) 

CALL  G3CHAL  (  1  C  .  ,  1  1  G  .  ,2  .  J  ,  J  .  ,  <9  '  ALT  2A5KS  IN  200  1 L 
I C  ALL  G3CHA3  (10. ,60. ,2.0,0.  ,J3,'7ELO  III  50  A/S  IJT7L 

ALL  GSFSCE 
KAXY=I2 

ai:;r=r  i 

SETUBM 

FORMAT  (2F10.2) 

FCBflAT  ( 38H  AT  WHICH  POINT  DO  YOU  .ANT  TO  3ESTA3T) 
F03NAT  (38H  VILLAGE:  0=NCT  D  3  A  *  N ;  1 =  V  ILL  AG  E  DRAWN) 

ESC 


INI)  ,  3Z  (ICNT)) 


.  L-t  i. 

A  LOU 


0  X  AXIS* 
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_  I  ! » !  t 


( 


>  UEHOUTIN  S  SIN 


IBIS  SOGTINE  DEFINES  A  lilLZOH  EXTENDING  FB0.1  LX  TO  NX 
CN  TEE  HOB  IZONT  A  L  AXIS.  AND  cKOM  JINX  10  -1AXI  ON  IHE 
VE3TICAL  AXIS.  THE  HOSx ZOMT AL  3ANGE  IS  aX,  TUE 
VE3TICAL  3ASGE  IS  BY. 


SUE30UTIN2  MIN  (IX ,  .1 X ,  3  X  ,  HX  ,  J  Sr) 

COMHCN  /V. S/  IEAUD  < 

cc.-.aoN  /NNi/  a  in  x, a  a  xx,  a  ia*  ,maxy,3in  xi,:*axxi  ,ai:;x2,  daxx2 

SEAL**  SASItSl 
I NTEGE 3*  4  7  1(4) 

DATA  MAN  1  (1) /G./,  XAS1  (2)  /3./ 


DEFINE  THE 


SI  NCOS 


VI  (2)  =  MINI 

V  1  UjaSAXY 
S  AN  1  13)  =RX 
K  AN  1  (4)  =  BY 

VI  (1}  -Li 
VI  (3)  =  HX 

CALL  GAS  VIE  (VI  ,0) 

CALL  3  AS  SIN  (SAN  1,0) 

IF  (JS?  .  £<J .  0)  GC  TC  20 


PLASH  IHE  DEFINED  NINDCS 


4 


ICNT»»*5C*r3AUC 
dc  io  i»i,io:;t 
CALL  G3VECT  (C-,0. ,0.) 
CALL  G3V  ECT  (  1.  ,  SAN  1  (  1) 
CALL  33VECI  (  1  .  ,  .AtH  (3 
CALL  GOV  HCT  ( 1. , JAN  1  (J) 
CALL  3  3V ECT  (1  ..«ANl  (1) 


SAN  1  (  a)) 
SAMI  (41) 
S  AN  1(1)) 
«.N1  (21) 


rca  DO  NOT  SAM  A  "C  AIL  GS?3C£"  «£££.  SI  NCOS  DEFINES  THE  GRAPHICS 
?CJT  CB  "H  IN  CCS "  rca  ABE  "OPENING".  THE  OTHER  3U3BOUIIN ;S  ABE  PASSING 
THINGS  THROUGH  THE  Cr  S3  »INDOS.  "CALL  33F3CE"  CLOSES  THE  S'INDO*. 


COWTI.V  HE 

BETUaN 

END 


I 


4 


4 


4 


4 
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SUBaOUIINE  GCNLOC 

THIS  SUBROUTINE  CRAWS  SFFEICTI7S  FIRE  RADIUS  CIRCLES 
AROUND  THE  D  EFEMSI7E  AAA  £  ATT  ERIES. 


SUBROUTINE  GUN  IOC  (GX,GY,3AD) 

CCBBON  /BH/  I  BAUD 

C0B30N  /fiN  1  /  BIN  I. BA  XX.  3.1  NY  ,3 AXY, 313 XI,  3  AX  XI  ,3X3X2,  3AXX2 

8EAL*4  X.Y.DX.CT 

X*GX 


IDENTIFY  THE  BA?  ANC  PLACE  A  '+*  AT  THE 


call  win  (2i:jx,.yaxx,  i3joo.,  12CCO. ,J) 
CALL  G3VECT  (C.,X-75.,Y) 

CALL  GBVECT  ( 1 .  ,  A  *7  5  . ,  Y  f 
CALL  GBVECT  (U.,X(Y+7S.) 

CALL  GBVECT  {1.,X,Y-75.J 


DRAW  A  CiaCLE  AROUNC  T fc E  SIT: 


LOCATION 


CALL  GSLT  (14) 

CALL  GEGARC  (  R  A  C  ,  SAC  ,X,  Y  ,  1.  ,  1  .  ,2  .  ) 
CALL  GSLT  (0) 

CALL  GSP8C2 

RETURN 

END 


S  0330 QTINE  X  TFT 

this  sucp.our inc  cet.m ns  thf  x  and  y  cocidina :es 

,,*«»**,«», ***,«•**« **»**•«** *»»•«*£«**?  £«*»i«»£*l£a**l**** 

SUBROUTINE  xypt 

CCSHON  /ICC/  X  1.11,2  1,V  1,  IT.?,  IIS2 

CO  BBO  N  /  HN1  /  BIN  X,  B  A  XX,  HI  NY,  3  AXY,  JIN  XI  ,  3AXX1  ,  HINX2, 3  AX  X  2 
_ CALL  BELL 

FLASH  BAP  ANC  GET  X, Y  ANC  THE  FIRST  COHBAND 


CALL  WIN  (BINX.3AXX,  13000.,  12CC0..1) 
CALL  SPOT  (XI  , Y 1  , LTB ) 

CALL  GSPSCi 
CALL  BELL 
fiETUBN 
END 


SUBROUTINE  ZVPT 

•  THIS  SUBROUTINE  C ET AIN S  THE  ALTITUDE  AND,  DEPENDING 
CN  TEE  CIRCUMSTANCES,  THE  VELOCITY  OF  THE  DESIGNATED 
PCINT. 

***«*•*»*•*•*»***«»•*****••****•***••«•*• *•**••**•*•««•*•••*•**•******* 

SUEEOOTINE  Z’/FT 

COBBON  / LCC/  X1  ,  Y1 ,  Z1  ,V1  ,  IT  3,  IIH2 

COBHON  / BN  1/  BINX.BAXX,  3 1 NY , 3 AXY, BIS  X 1 .BAXX1 , BINX2 , BAXX2 


PUSH  ALTIBETE3  ANE  GET  VEL ,  ALT  ANC  THE  SECOND  C0B3AND 


CALL  WIN  (813X1. 3AZX  1, 350. ,22CG.,  1) 
CALL  SPOT  (VI ,21 ,1182) 

CALL  GS F EC* 

RETUBN 

END 


£«**»**•**•«*»*****•»»• «****»«**********««•**•»***«•***«***«'*•*•* •**«»» 

C  S UBBO UTINE  SPOT 

C  THIS  RETURNS  AN  X-Y  PAI B  AND  A  COSSAND  VALUE  LI 

C  THE  BOUTIN  £  ALSO  C  B  c  AT  E  S  A  DOT  AT  POINT  £  , Y. 

£••**•*  **  «** *************** c*********************************** *****»*•• 

SUBROUTINE  SPOT  (X,Y,L1) 

BE AL*4  TX,TY,ECT 


INTEGSP.* 4  L, 3. CUT, KEY 


C  HEAD  THE  C0HSC3  AND  PICK  UP  USES  CCH3AND 
10  CALL  G3HXYC 


CALL  GAXCTI 
DOT-40- 


( 3  ,  L  ,  KEY  ,TX  ,T  X) 

(  1,KiY, 1.LEN.0UT) 


C  a ARK  THE  SPOT 

CALL  GBGCCT  (DCT,TX,IY) 
X=TX 
X  *IY 


C  CONVERT  THE  CCaHANC  TC_TEE  PROPER  HO SHAT 


LI* 

0 

IE 

(OUT.  EG.  1) 

L1  =  65 

IF 

(OUT-  EG. 2 

I1=h*) 

IE 

(OUT.  EG.  31 

L1  =  62 

IF 

RET 

END 

(OUT.  EG  .  4 ) 
URN 

LI  =63 

C  ***»***»•**-  ************************************************************ 

C  SDBHOUTXNS  GUNCHK 

C  THIS  5UE30UTINE  CHECKS  GUN  LOCATIONS  AGAINST 

C  S2PIAC2.1SN?  IDLES. 

C *****•*•••**•»***»***•***•*«*«**  ************* *4* ******** * ****** ******** 


SUEHOOTINE  GUNCHK  (X.Y.IS3R) 

_  COaaON_/TAH/  T  A  RG  X , T  A3G  X  _  __  __ 

C  COMPUTE  DISTANCE  TC  1AHGET 

C - 

DIST=SQRT  (  (X-TABG  X)  **2  ♦  (Y-T  A  BG  X )  **  2) 
IEBB=Q 

IE  (DIST  -GE.  3000.)  HETU3N 
I£BR= 1 3 

CALL  ESRHK  (IEBH) 

BET'JRN 

END 


C  *****  ******  *****************  *******************************  *•• • 

C  SUBROUTINE  SAHCHK 

C  THIS  SO SHOOT IN  E  CHECKS  THE  3IS3LS  EMPLACE  SENT 

C  AGAINST  GAME  LI3IIATIONS. 

C** »******«**•***•**••»•»•*******•«•****** •.<*••••••<•*•»*••*»• 

SOBROUTINE  SAHCHK  U.ISRR) 

IEBB*0 

IP  (X  ,GE.  5000.)  RETURN 

T  EARS  1  Q 

CALL  SHBHK  (IEBH) 

RETURN 

END 
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c *********** ******* ****************************** 

C  S DB8CUTIS2  ESSBK 

C  THIS  SUBROUTINE  SENDS  PSCSETS 

C  TC  TEE  USES. 

C*********** *************************** ********** 

SUEHOOTINE  EREBK  (IEnS) 

COBBON  /BN/  1 5  A  0  D 

coaaoH  /Aid/  *x  (  too ,  *-y  mo 00) , ooo< 

1)  ,WH  (1  OOC)  .  W?  (1000)  . «a( 1 000)  ,  «G  ( 1  JOO  )  ,  T  ( 1 0 v, 
COBBON  /KSV  aiNX,.1AiX,31Nlt,.TAj(i#ai;iil,d4Xj( 

C  PLASH  THE  EBCBPT  WINDOW 

CALL  WIN  (8INX2,BAXX2.2700. , 16*."") 

CALL  GSFECE 

GO  TO  (1C,20,3C,uC,5C,oQ,70,30,90,100,110, 1 

1 180) ,  IiDB 

10  WHITE  (6.200) 

GC  TO  ISO 

20  WHITS  (6.210) 

GC  TO  190 

30  WHITE  (6  .220) 

GC  TO  790 

40  WHITE  (6  .230) 

GC  TO  190 

50  WRITS  (6,240) 

GC  TO  190 

60  WHITS  (6.250) 

GC  TO  190 


,«*•**•*** 


k********* 


i  V  ( ’  CO  0 )  ,  .  W  / 1  ", 


I  40,  150,  160,170, 


I  I  ou  I  ,  i.kfl 

WHITS  (6  .200) 
GC  TO  ISO 
WHITS  (6.210) 
GC  TO  1 90 
WHITE  (6  .220) 
GC  TO  190 
WHITE  (6  .230) 
GC  TO  190 
WHITS  (6,240) 
GC  TO  190 
WHITS  (6,250) 
GC  TO  190 
WHITE  (6  .260) 
GC  TO  190 
WHITS  (b  , 270) 
GC  TO  190 
WHITS  (6  .280) 
GC  TO  190 
WRITS  (6  .290) 
GC  TO  190 
WHITS  (6,300) 
GC  TO  190 
WHITS  (6.310) 
GC  TO  190 
WHITS  (6  .320) 
GC  TO  190 
WHITS  (6  .330) 
GC  TO  190 


GC  TO  190 
WHITS  (6  .280) 

GC  TO  190 
WRITS  (6  . 290) 

GC  TO  190 
WHITS  (6,300) 

GC  TO  190 
WHITS  (6.310) 

GC  TO  190 
WHITS  (6  .320) 

GC  TO  190 
WHITS  (6  .330) 

GC  TO  190 
WHITE  (6.340) 

GC  TO  190 
WHITE  (6.350) 

GC  TO  190 
WHITE  (6,360) 

GC  TO  190 
WHITE  (6  .370) 

GC  TO  190 
HETOHN 

PCSBAT  (258  SAXIBUB  ERASING  EXCEEDED) 
POBBAT  (158  BAX  G  EXCEEDED) 

FCKHAT  (128  ALT  TCO  LOW) 

POHBAT  (13H  ALT  TCO  HIGH) 

PORHAT  ( 6 H  STALL) 

FOHBAT  (15H  PCF-JE  TCO  LOW) 

PCSBAT  ( 138  BBE  CRCF  LOW) 

POHBAT  (12H  3 B B  DRC?  HI) 

POBBAT  (158  ICC  SIR  EM  TGT) 

POHBAT  (178  HDG>5  DEG  TO  TGT) 

POHBAT  j 1 9H  PINAL  SUN<2.33  SEC) 

PCSBAT  ( 2 1 8  NC  HCBISCNTAL  MOTION) 

POHBAT  ( 1 7H  TOC  CLOSE  TO  TGT) 

POHBAT  (23H  ENTEH  BISSILE  LOCATION) 
POHBAT  (268  ENTER  AIHCRAFT  BIIESTCNES) 
POHBAT  208  ENTER  GUN  LOCATIONS) 

POHBAT  208  BAX  THRUST  EXCEEDED) 

POBBAT  (288  I  COORDINATE  LESS  THAN  6000) 


POBBAT 

PCRBAT 

POHBAT 

POHBAT 

FOSBAT 

PCRBAT 

PORBAT 

PCRBAT 

PORBAT 

PORBAT 

PCRBAT 

POHBAT 

POHBAT 

PORBAT 

PCSBAT 

PORBAT 

PORBAT 

END 
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SOEfiCUTINS  3IGCAL 


THIS  SGE30UTTNE  C*  EH AT  E  S  AT  A  LEV  EL  BELOW  IAIN 
EBOGEAd  AN  0  ACTS  AS  A  DBIVES  FOB  THE  5  UBHOUT IN ES 
LISTED  •  IT H I  N. 


S QBROOTX VE  3XGC\I 

coaaon  / a ec i /  hx  1 1000  ,sy  (iooc>  ,wzn  ooo  .  aupooo^.  w 

1)  ,  WH  (1  000) ,  WP  (1C0C)  ,  .3(1  JGO)  ,  AG(  tOOO  >  vyj >  ,  Is* 

fcJsaoN  /a sc 2/  xnev.delx  ,  xTsa?  ,hcld,x  siw.osLi , 

1 ZT ^ M P  7Q I L 

COdJiON  /A  DC  3/  VELCN,7SLGT,VSLCC,N,aNE»,07Ed?,30L3,7 
1HNEW,iiTS8E,MCLE 

COdHON  /A  EC  4/  AG  1  .AH1  ,AI  1  ,A  J  1  ,AJ2  _ 

CCddON  /  A  £32/  VSTilL  ,f 3AX  ,7  !1  A X  1 ,  VdAX  2. 3 ELTii, 3 cLT  / , 
COdSOH  /A EES/  E»E  ACC  ,  AN ,  (ICO  NT 
N«0 

dCONT=0 
CALL  T  ENEBM 
CALL  NEWCLD 
CALL  iVELCS 
CALL  3VDCTS 
CALL  DEL 7 EC 
CALL  Tap  ENT 
CALL  T3PVEL 
CALL  IN8TEM 
CALL  ANGLES 
CALL  3  OTHAT 
CALL  ACTBdl 
CALL  ACT332 
CALL  AC7SI13 
CALL  AC3VEL 
CALL  ACACC 
CALL  ACLdTS 
CALL  X  CHNGE 
CALL  WA7FST 
CALL  FILE 

ici»rci+ i 

BET’JBN 

END 


V  (1  ODD) 
;CLD,  Z 
NEW, 77 

DELT3 


,  A  «  (10  00 
I  EM, DELE, 
id?, TOLD, 


c  scbhouiine  rsNrsa 

C  TEANSECSH  TAKES  TEE  SEAL  VALUE  VARIABLES  3 

C  B  1  THE  GRAPHICS  SUBROUTINES  AND  LOADS  THEM 

C  VA3IABLES  SPECIFIC  TO  THIS  AIRCRAFT  T3AJEC 

C  GENERATING  PACKAGE. 

C ************************************** ****************** 

SUBROUTINE  TRNFRJ 

ccaaos  /icc/  x i.rt.z i.v i . ltr. ur2 

COSNON  /  A  EC  2  /  XNEi,SELX,X7S3P,XCLD,E SEW , D ELI , X7E3P, 
1E7EHP, COLD 


•JPP 
1 N 
TOR 


LIED 

TO 

X 


C03HON  /  A  BC  J  /  VELC  N ,  VELOT  ,VELCC,N,UNEW,UTEaP,UOLD,7 
VANE*, WTESf ,VOLD 


•XOLD 

'*  £  *  , 


7TE 


a?, VOLE, 


COar.ON  /A  8E5/  FUCACCfAN,  HCO  NT 
XNE«=X1 
YNEM=f 1 
ZNES=2 1 
VELJN=yi 

heturn 

END 


c  **  **•***•**••**•••*  ******************* ****** 

C  SUBROUTINE  NEWOLD 

C  NEWCID  GENERATES  LENGTH  VE 

C  THE  CURRENT  WAXPCINT  (OLD) 

C  USER  BAS  JUST  ENTERED  (NEW 

C  ** ********************************* ********* 

S0E3OUTINE  NEWCID 

ccanoti  /AEC2/  xnew.delx  .xrcap  ,xcld,y  re* 

1 CT EBP, CO  LE 

CCSSON  /  A  BC  N  /  AG1.AH1.AI1  ,A  J  1  ,  A  J2 
CC3HON  /A  EES/  END  ACC,  A), /.CO  NT 
AG1  =  XN  SW-XOLD 
AH1*TN  ES-tOLD 
AI1*3NF«-20LD 

AJ1  =  SQRT  (AG1 *  *  2  +  A  t 1**2* A  1 1**2) 

AJ2*50ST  (AGJ  **2*AH1  *  *2) 

RETU3N 

END 


T03 
AND 
)  • 

***** 


COUPONS 
T  HE  DES 


******* 

,  DELE , TTZBP, 


NTS  BE 
13  E  D  * 

YOLD.C 


TWEEN 

AXPOINT 

NEW , DELE, 
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nnnnnn  -*  nnnnnnnnnn 


C*« ********* a***************************** 4***************************** 

SCBSOOTINE  BVELOS 

BVELCS  (BA?  VELOCITY  CO  HPC MEN TS)  DETERMINES  THE 
VELOCITY  COBEONEBTS  BET  BEES  CUSBENT  WAYPOINT  (OLD) 

AM C  TEE  JOST  EMTEBED  SAYECINT  (MEM).  THE  SUBBQUTINE 
CC  NT  AIMS  A  FLAG  ( N)  TO  AVOID  BESETTING  THE  VELOCITY 
CC  ME  C  ME  NTS  UNTIL  EITHE3  A  NEW  W  AY  POINT  IS  SECS IV  ED 
OB  AN  AIBCBAfT  LIBITATION  *H ICU  IS  FATAL  IS  BEACHED 
IS  THE  SU3SSCUE  ST  ISTESATIVE  SO  350CT  IS  SS.  THE 
CCCSLIM ATE  SYSTEM  IS  TESTED  HAT ,  1.2. ,  Y  JOISTS  MC3TH 

i*  ***********  *******************  *********  <  »•••*••**•******«•*•*  **••*••• 

SOESOUTIS e  SVEIOS 
COBBON  /ABC 4/  AG1.AH1.AI1  .AJ1-AJ2 

CC3HOM  / A£CS/  VE iCH. VELOT.VE LCC.N.DN EV. DIEM? , DOLD , V HEM , VT 33 P , VOID, 
1 A ME A, WT2BP , BOLD 
COHHOM  /  A  EE3/  FW  C  ACC  ,  AN  ,  M  CO  NT 

a*M 

IF  (S-GT.O)  GO  TO  10 
DSE»=VELOM* (AG1/AJ1) 

V  MEW*V  ELCN*  (AH  1/AJ  1) 

BN  EM*V  SLO  S*  ( A I  1/ASIj 
I  CONTINUE 
N*  1 

BETUBN 
END 


************************** *****«•*********•*»***»«****«***«***  ********* 

SUEBODTINE  MVCOTS 

SVDOTS  (BA?  VELOCITY  DOT  CC  BFOM  E1ITS)  COMPOTES  THE 
LIMiAE  ACC  2LZH ATTCN  COBPCIJESTS 
IN  HAP  COORDINATES.  (Y  POINTS  M03TH) 

************************** ********************************************* 

SDBBOUTItlE  .1VDC13 

CCB30N  / A EC2/  XM£W,DELX,ET2BP,*OLD,YKEB,DSLY,rTEBP, TOLD, 2 mew, deli, 
IZIEaP.ZOLC 

CC3BOM  / AECJ/  VELCS , VELOT , V2LCO, » ,UN EW , JTE3P , OOLD , V N E « , VTEB P , VOLE , 
IBNEW.WTEBE.aOLC 

CCEBON  / AEC4/  AG1,AB1,AI1,AJ1,AJ2 
COMBOS  /AeSI/  CDCT , V  DOT , WDOT 
CCBBON  /  A  EE5/  FWC  ACC,  AN,  SCO  ST 
ACC=  ( V  ELON**2  -  VEICO*  *2)  /  (2*AJ1> 

UCCT’ACC* (A01/AJ1) 

VDOT*ACC* (AH1/AS1) 

BCOT^ACC* (AI1/AD1) 

BETUBN 

END 


nnnnn  non nnnn 


>***•*  »***»****»»«♦»*»»**»**  *»**»*•***«*»***»***» 

subroutine  delvsc 

BEL VEC  IDELTA  VECTORS)  UTILISES  STAN  DA?.  D  BX 
ECU  AT  10  NS  TO  GENERATE  LINEAR  TRANSLATION  IN 
IT  EDFTHE3  LOOKS  TO  SEE  WHETHER  THESE  INC RE 
EXCEED  THE  DISTANCE  LETT  TO  GO  TO  THE  NEW  W 

«* *»»***»»»*********•**»»•*« **»««**»**»»*#*****»****»*»*»**«» 

SOEROUTINE  DELVEC 

COaHON  /A EC 2/  XNE » ,DELX . XTE MF  , XCLD, X  SEW , DSLX , XT2MP, TOLD, 
1 ZT  EMP, SOLD 

common  /accs/  velc.v,  velot .velcc,  n,d.vew,  utehp.uold,  7NEW,  V 

IWNES.'WTEaE.WOLt 

COMMON  /ABC**/  AG  1  .  AH  1  ,AI  1  ,  A  J  1  .  AJ2 

COHHON  /  A  £02/  VST  ALL  ,  ?M  AX  ,VM  A  X  1,  /MAX  2  ,  B  ELTSE  ,  D  EL  TV,  DELTA 


l  EM ENTS. 

I  MTS 
fPGINT 

f *»»»**** 

IE «, DELS, 
EHP,  VOLD, 


COMMON  / A  EZ1  / 

COMHOH  /  A  EES  /  EH  C  ACC  ,  AN  ,  MCO  NT 
DELX=U0LD»DELTEE«-.S*UD0T«C£LTEE**2 
DELX=V0LD*DELTEE+.5*VD0T*DELTiE«»2 
DELZ=W0LD*DELTEE+.5*WD0T*BELT  EE»*2 
IE  ABS(DELX)  .GT.ABS  (AG1)  )  DSIX=AG1 
IE  ABS(EtLX)  .C-T.ABS  (AH  if)  DELX=AH1 
IF  ABS  (  D ELZ)  .GT.ABS  I AI  1 )  ;  DELS=AI1 
RETURN 
END 


-  *  t  A  t:  „ 


*«  *********  ******************  ***********  *********  *******  ********* 

SD3ROOIXNE  TWPPJiT 

TSE  r  NT  (TEMPORARY  POINT)  GENERATES  A  TiflPORAST 
POSITION  IN  SPACE  3ASED  iJPCII  THE  JSLTA  VECTORS 

**  *********  **************  ***  *  ***  ********************************* 

SUBROUTINE  TMPPNT 

COMMON  /A  ECO/  XN  EH ,  D ELX  ,  XT2 SP  , iCLD,  X  NEW  ,DELX  ,  X7ZM? ,  XCLD ,  Z NEW 
1ZTEMP.ZGL0  . 

COMMON  /  AEC3/  V ELCN  ,  VELOT  . V ELCO,  N ,  UN  t’i  ,  UTSMP  ,  UOLD  ,  V NEW  ,  7TE  S P 
1WNEW.  WTEHE.'WOID 

COMMON  /A£6t/  AG t.AH  I, AX 1.AJ1.AJ2 

COMMON  /ABD2/  VS  I ALL, VM A I ,V MA X 1 , VHAX 2, CELTEE, DELTV,  3ELTZ 

COMMON  /  AEE5/  EH  £  ACC  ,  AN  ,  M  CO  NT 

XTEMP=XOLC*OELX 

XTEHP=XOLC»-OELX 

ZTEMP=ZOLD+DELZ 

IP  (DELX.EQ.AGl)  XTEMP^XNEW 

IF  (DELX.EQ.AH1)  XTSMP=XNE'W 

IF  (DELZ.EQ.  All)  ZTEM?=ZNSN 

RETURN 

END 


,VOLD, 
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C  SOBSOUTISS  TMPVEL 

C  TMPVEL  (TEMPOS ASK  VELOCITY  COMPONENTS) 

C  THE  VELOCITY  COMPONENTS  ASSOCIATED  'JIT 

C  PC  1ST  IN  SPACE  (MAP  COORDINATES). 


GZNER 
H  THE 


ATES 

TEMEOBA8Y 


10 

20 


30 

40 


50 

60 


ELT  EE,  0 ELI  V,  DELTAZ 


SOBBOUIINE  TMEVEI 

COMMON  /AEC2/  IN  EH , D ELI , ITEM P , HOLD, T NEH , DELY , YT3MP, 
1ZTEMP, Z0L3 

COMMON  / A £C3/  VELCN , VELOT , V ELCC, N , UN  EH , UTSMP , UO LD . V 
1 HNEV, HTEMP , HO  LE 

COMMON  /  A  EC  4  /  AG  1 ,  AH  1,  A 1 1  ,  A  J  1 ,  AJ  2 
COMMON  /ABD2/  iSTALL  ,  VM  A  X  , V  MA 1 1 , 7 MAI  2,2 
COMMON  /  A  £E1  /  U  COT ,  V  COT  ,  U  DOT 
COMMON  /  A  EE5  /  F HE  ACC  .  AN  ,  3C0NT 

OTEap*uou:*o  dot*  celt  tz 
VTSMP*VOLD*VDOT*DELTE2 
HTEBP*WQIC*W DOT* CELT ES 

IP  (AaS(UTEMP)  .GT.ABS  (ON EH)  .ANC.MCONT.E 
IP  lABS  (VTEM?)  .GT.ABS  (V  MEW)  .ANC.MCONT.E 
IP  (AdS/STEM?)  .GT.ABS  (WNEH  .ANC.MCONT.E 
IF  (DELI. EQ.  AG  1)  CTEMP*UN  EH 
IP  (OE  LI .  E'J.  A  ft  1)  VTEMP=VMEH 
STEfpaWMEW 


*OLU,Z 
NEH ,VT 


NSW ,D2LZ, 
2MP.VOLC, 


C.  1)  UTEMP  =  U 
5.  1)  7TSMP=7.  _ 

W-  1  HT2JP=JNE 


NEH 

NEW 

NEH 


OE  LI.EO.Aftl 

IP  (OELZ.E'J.A1 1.  _ 

IF  (DELI. jig. 0. )  GO  TO  10 
UDOT-O. 

GC  TO  20 
CONTINOE 

IF  (UT  SMF.EQ.  ONES)  UCOT=(OTSMf 
CONTINUE 

IF  (DELY.NE.O.)  GC  TC  30 
?DOT=0. 

GC  TO  40 
CONTIN  OE 
IF  (VTEHP 
CONTINUE 
IF  (OELS.NE.O.)  GC  TC  50 
HDOT*0. 

GC  TO  oO 
CONTINOE 

IP  (WT  EME.EQ.  WNEH)  W  COT=  (  HTE S E** 2-HO  LD* 
CONTIN  UE 

VELOT*  SQBT  (OT  E  HP**2 ♦ VTEM  ?**  2*  STEM  P**  2) 

RETOBN 

ENC 


2-00 LD«*2) /(2«DELI) 


IQ.  I  NEH)  V COT*  (  7T2  S  E  **  2-VO  LD*  *  2)  /  (  2* DSL Y) 


■  2)  /  ( 2*  D2LZ) 


C  SOEHOUTINE  INHTSM 

C  INSTEM  (INITIAL  ECTATIONAL  TB  ANS  FOdM  AT  ION)  T  3  ANS  FOB  t!S 

C  MAP  COORDINATE  CCMP0N2NTS  TO  A  SYSTEM  U52D  BY  FLIGHT 

C  CYNABICISTS  (Y  PCINTS  SCUTB  AND  Z  POINTS  DOWN) 

C»* ««*******•»**•*• •«**•**«**** «»****•*»** *»»*»***«****»»**»**»«**»***** 

SOEBOOT IN E  INBTSM 

COMMON  /A3C3/  VELC N , VELOT , V3 LCC, N, UN  EH , DT EMP, DOLD, V NEH , VT 3M P ,  VO LC, 
1 H  NEH , WTEME , HOLE 
COMMON  /A3E1 /  ODCT , VCOT , BOOT 
COMMON  /SEES/  FH  C  ACC  ,  AN  ,  M  CO  NT 
COMMON  / ABF  1 /  0 1  . « 1  , HI ,  U 2 ,V 2 , W2 , 03 , V 3 , W 3 
COMMON  /AEF2/  OC 1 ,VC 1 ,i  D 1 ,UD2 , V 02 ,H D 2, UD3 , VD3, ND3 
DlaUTEMP 
Vla-VTEMP 
Hla-HTEMF 
OCIaUDOT 
VD1»-VD0T 
8C1»-WD0T 
SETOHN 
ENC 


159 


<;*»***»**  **«*»»**********»»»»***»  **»*»**■* **************************** •» 

c  sorrouuns  angles 

C  ANGLES  COM  ?  UTSS  THE  ANGLE  CHANGE  INCREMENTS  CAUSED 

C  BK  MOVE  BENT  FORM  A  FD  TO  THE  TEMPORARY  POINT.  PS  IS  ES 

C  IS  TEE  READING  CHANGE,  REFER ENCED  TO  THE  X  AXIS. 

C  TEENEW  IS  THE  PITCH  CHANGE  REFERENCED  TO  THE 

C  EC3 IECST1L  PLANE.  PHINE  3  IS  THE  ROLL  INCREMENT  AEC'JT 

C  THE  X  AXIS. 


10 


20 


SUBROUTINE  ANGIES 

COMMON  /  AEC2/  XN EW , D ELX , XTS MP ,XCLD, Y NEW , DELI , YTSMP , TOLD , Z 
1 ZTEBP , ZOLD 

COMBON  /A ECO/  VELCN , VELOT  ,  V  ELCC,  N,  U!J  EH , UTEM? , UOLD , VNEW , YT 
USES  Jff.p  JCIC 

CC2m6.N */AEd4/  AG  1.AH  1 , A 1 1 , A J 1 , AJ 2 
COMMON  /AED1/  AA1.AB1.AC1 

COMBON  /  A  ED2/  VST  ALL  ,  YM  A  X  ,7  M  A  X  1,  YMAX  2  ,  DELTES  ,  DELT  V ,  DELTZ 
COMMON  /AE04/  E SI  NEW  .THEN  EH , P HINES, PS1CID .IHEOLD, Pd IOL D 
COMMON  /AEiS/  FHCACC.AN, MCONT 
DSxSOR  T ( DELX*  *  2  +  U  EL  Y**2*D2LZ**2) 

IF  ( DELX . NE. 0 . )  GC  TC  10 

IF  (DELX.EG.O-.AND. DELY. LT.  3. )  PSINEW=AA1 
IF  (DELX.EQ. 3.. AND. DELI. GT. 3. )  PSINES=-AA1 
GC  TO  20 
CONTIM  OE 

PSINEW=-ATAN ( CELY/DELX) 

IF  (DELX. GI. 0.. AND. DELX. EC. 0. )  ?SIN£K=3. 

IF  (DELX.LT.O..ANC.CELY.LI.O.  PS  IN  E  W  =  A  81  +  FS  IS  EH 
IF  (DELX. II. J. .AND. DELY. EC.  J. )  PSISEW*Ac1 
IF  (DELX.  LT.O..A.VC.  DELY.  51.0.  j  PSINE  W*f  SISE3-A  81 
CONTIN  UE 

TBENEW=ASIN(CEIZ/CS) 

TRNHAT=(PEINE«-?SICID)/DEITEE 

IF  (PS  IN  EH.  GT.  3.)  PH  ISSN*  AT  AN  (ABS  (T3  NR  AI*  VILOT/N  .  705  3)  ) 

I?  (PSIWER.LT.  0.  I  PH  I  NS  3  » -AT  A  N  (AL3  (  T  BNE  Ai  *VEL0T/9 . 795  3) 

IF  j?S  INEH.  E^.PSICLD)  ?  H I  NEW- E  HIOLO  . 

EETU"  " 

END 


NEW ,CELZ, 
EBP, VOID, 


*)) 


JRN 


C *****•<*♦•*  ****»»»***«•***»**  ************ *** ••*•*****•*«* «•*«** *»•*«•** 

C  SUBROUTINE  ROTHAT 

C  SCI B  AT  (ROTATIONAL  SATE  S)  COMPUTES  THE  ANGLE  DOT 

C  COMPONENTS  IN  THE  INERTIAL  REFERENCE  SYS.  (THE  ONE 

C  .  WITH  Y  POINTING  SCUTH  AND  Z  DOWN). 

C*»  ****»»•»» ***************** a************ ••*  ***************  *»«»**»*** ** 

SUE ROUTINE  ROT  RAT 

COMMON  /AEC2/  XN E S , DELX , XTE MP ,XCLD,  Y  N EW , DELY , ITEM P, TOLD, Z N EB , CELZ, 
1ZTEMP, ZOLD 

COMBON  /AED2/  VSTALL  ,  VM  A  X  ,7  M A  X  1 , 7MAX  2  ,  E ELT EE,  D ELI V,  DELTZ 
COMMON  /AED-J/  PS IEOT  ,TH S DOT  ,  ?  HIDOT 

COMMON  /AED4/  ESINEW  ,THE N ES , ? HINEW ,  PSIOI D, TH EOLD, PH  IOL D 

COMMON  /  AEE5/  FW  I  ACC  ,AN  ,  MCO  NT 

P SI DOT=(PSINEW-FSIOID!  /DELTES 

THFDOT= (TtENEW-ThEOISj/DELIEE 

P HIDOT 3  (PHINE S-PHIC  LD)  / D  EIT  ES 

RETURN 

END 
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*********** •*•*••**•*•»*•*«**•***•»*******•*•****** «*•****•******•»•**• 
SUEBOOTIBE  ACTBS1 

ACTS!!  1  (AIRC3AFT  TBAKSPC3MATI0M  HAIBIX  *1)  EFFECTS 
BCTATICS  0?  AIHCSAPT  A3  0UT  THE  Z1  AXIS  (?03  I 
POINTS  ESN  TO  SABTH)  . 


SDEBOdTISE  ACT Sil  1 

COMMON  /ASIA/  ESI  MEW  ,TN3N  IN  ,? HINES,  FSICIO-EHEOIO,  IHICII 

COMMON  /  A  EE5/  IttCACC.AN.MCONT 

COMMON  /ABP1/  01, VI, *1,02,72.32,1)3, 7  3, *3 

COMMON  /AEF2/  UE1,VC1,WD1,UD2,VE2,WD2,UD3,VD3,WD3 

ANG*PSENE!i 

Q 2’ COS  (ANG)  *0  1+SIN  (ANG)  «V  1 
V2*-3IM  (ANG)  *  UWCC3  (ANG)  *71 

»2*W1 

UD2*C0S  (ANG)  «DE1»SXN  (ANG)  »V01 
VD2»-SIN  (ANG)  *  CD  1  +CCS  (A  NG  )  *  V  D  1 

ac2«woi 

BETUBN 

ENC 


A************************ **** ************  *••*••*•**** ****** •** ********* 

SUEHOOTXNE  ACTBM2 

ACT3M2  EOT A  TES  TEE  A ISC  a AFT  ABOUT  THE  12  (BIGHT  WING) 
AXIS. 

*************** ******************************************************** 

sujeoutine  acts*: 

COMMON  /AED4/  ES:%EW,THENEW,PEI).EW,?SICLO,THSCLJ,?HIOLO 

COMMON  /  A  E  E5  /  cW  £  ACC.  AN  ,  SCO  NT 

COMMON  /ASF  1  /  U 1  ,  7 1  ,  W1 ,  02  , V  2  ,  W2 , 3 3,  V  3 ,  W 3 

COMMON  / A EP2/  UE  1,7C  1,*0  1.JD2  .  VE2.W3 2.GD3. 703, WE  3 

ANG=  1'ri  EN  E  W 

U3»C0S  (ANG)  *U  2-3 IN  (ANG)  *W2 

33=SIN  (ANG)  *'J2*C3S  (ANG)  *W  2 
UD3=C0S(ANG)  *  U02-SIN  (ANG)  «WD2 
VEJ=702 

«DJ*SIN  (ANG)  * 0D2 wCCS  (ANG)  *WD2 

EETUBN 

END 
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S  GBRO UTINE  ACTKB3 


8CTATES  AIRCRAFT  ABOUT  THE  <3  (HOSE)  AXIS 

- •  - - - **-*--»*****» - 


SUBROUTINE  ACT SB  3 

COHflON  /ASDu/  ES I  NEW  ,IH  EN  EW  ,  ?  BIHEW  ,  ? SIO  LD , TH BOLD ,  PH  10  LB 

COHSON  /A  ES5/  FW  C  ACC  ,AN  ,  3C0NT 

CCBBOM  /  ABF  1/  0  1 ,  V  1 ,  J  1,  U  2, 1 1,  W2,  U3, V  3,  W  3 

coeaoa  /ae?2/  cbi  ,?di  ,«o i  ,uoi  .voi  ,wd:,uc3, vd3,  wdj 

ccsaoN  /abfj/  u k , *  ac, w aj,u jgIac, vtj iac, vogtac, ?, R 

ANG=PH IN  ES 

UAC=U3 

VAC=COS(ANG)  *  V3  *SIN  (ANG)  «  S3 
WAC=-SIN  (ANG)  * V 3 ♦  CO S  (ANG)  «W3 
UD0TAC  =  U  C  3 

VCCTAC=CCS  (ANG)*VC3*SIN  (ANG)  *«C3 
W2CTAC=-SIN  (ANG)  *V23* COS  (ANG)  «WD3 
RETURN 
ENC 


SUBROUTINE  ACHVEL 


ACE  VEL  (AIECSAFT  EOT ATI CNAI  7  EL  OCIT I  ES)  COMPUTES  THE 
SCIATIC N At  VELOCITIES  I3P03SD  JN  THE 
A  ISO  S  AFT ,  IN  THE  ROTATIONAL  OR  AI ECS AFT  COORDINATE 
SYSTEM.  (X  ALONG  THE  .10  SE,  i  OUT  THE  EIGHT  WING, 

2  CUT  THE  3UTT03  CP  THE  AIRCRAFT.) 


SUBROUTINE  ACEVEL 

CC220N  / A  ED3/  ESI  COT , THE  OCT , PHIDCT 

coanoM  /a ecu/  esisew ,th:n :w , phinew, psicli),thsold, thiols 
ccaaoa  /aees/  ewcacc.an  ,  .icont 

C0H30N  ^ ABF  3 /  UAC , V  AC , W  AC ,UDOTAC,VDOTAC,WDOTAC,?,J, E 
A  NG  1  =  T  H  cN  EW 
A  NG2»?  HI  NEW 

P*f3I00T-SIN (ASCI) •PS1D0T 

Q»C0S(ANG2) *tHECCT+CCS]ANG1) *SIN(ANG2) *ESIDOT 
a»-si:l  (ANG2)  *T  BE  CCT  *CC3  ( ANG  1 )  *COS  (ANG2)  «PSIOOT 

BETURN 

END 


nnnnnnrinnon  nrsnnnnnn 


► 


► 


i 


staaouuss  iCAcc 

(AI2C3AET  ACCELEBATIONS)  PUTS  TOG  ETHER  THE  LINEAB 
ACC  S  LE  S ATI  OHS  9330 ITISG  ETCH  TRANSLATION  THROUGH 
SPACE  AND  THE  ROTATIONAL  ACCELERATIONS  2ES0LTING 
F  ROM  3 A  NUV  HR  IN  G.  HRAT  APPEARS  3SLOH  IS  THE  IdS 
CF  TEE  CLASSIC  EQUATION  S  OF  MOTION  FOR  AN  AIRCRAFT. 
»***••»*»***»****«***«»**»**  «*»»»*»**»*»*»*****»»******** **«*»»»»»**»»« 

SUcHOUTINF  AC  ACC 

COMMON  /  A  EC  2  /  XNE  S.3ELI ,  XT2  MP  ,ICL0,  Y  NEW  ,  D2LY  ,  I T  SM9, 1 0LE,  Z  S  EH  ,  CELZ,  »  < 

1  ZT IMP, ZO II 

COMMON  /AEE 3/  A  X . A  Y  .  AZ 
C03KON  / A  EE5 /  FWCAC£,AN,MCONT 

CONMON  /  AEF3  /  C  AC  .  V  AC  ,i  AC  ,U  DOT  AC  ,  7DO  T  AC  ,  H  DOT  AC ,  ?,  J,  3 
AX“UDO  T AC-V  AC*R*'«^C*C 
A Y-VDO  IAC»CAC«5-*AC*P 
AZ='A  DOT  AC-U  AC*Q  *V  AC*  ? 

A=-FAC*R 

E»HAC*Q 

C«UAC*R 

E=-WAC*P  •  < 

E*-UAC*Q 

F=VAC*P 

BET URN 

END 


SUEHOUTINE  ACIMTS 

ACLMTS  (AIRCRAFT  II JIT A  TIC  NS)  COMPAaES  THE 
ACCELERATIONS  RESULTING  FROM  A  PROPOSED  JOVE  ALONG  A 
FLIGHT-PATH  TRAJECTORY  10  THE  PHYSICAL  LIMITATIONS  CF 
THE  AIRCRAFT.  THIS  IS  ESSENTIALLY  THE  F  HS  OF  THE 
ECU  AT I C NS  OF  MOTION.  IF  THE  TRAJECTORY  ACCELERATIONS 
ARE  LARGER  THAN  ALLOAAdLE  THEY  Aa E  ADJUSTED  DOWNWARD 
IN  MAGNITUDE  UNTIL  THE  RHS  AND  LHS  OF  THE  EQUATIONS 

**•*«»******«***«*•!••••»»*«£'!,:§*•»*;, •*.**»*•*••  *  »**« 

SUBROUTINE  ACLMTS 
CCanON  /  A  E  EJ  /  AX.AY.A7 

COMMON  /AES4/  IHMA it ,  ANM AX  ,C LM  AX , GEE,  TO,  RHOSS L,  HL , CDO, CCS,  A3  E A,  DT DH 
COMMON  /  A  EL5  /  EH  C  ACC  ,  AM  .  3C0  NT 

call  raacsi' 

IF  (AN.LT.ANMAZ.ANC. fNDACC.  LT  .THMAX)  CALL  300STR 
E  IFlAN.GI.ANBAX.Oa.FKDACC.GT. THMAX)  CALL  REDUCR 

HETUEN 
END 


> 


( 


l 


< 


* 


I 
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nonno 


**•*•****»«  «*»*«**»»»*»»»»** »*•**»<<»* »**»**♦•*»«*«««**»**«* »***»»**» 

3U8800TINS  3C0SI5 

BCCSTH  INCREASES  THE  LI  HE A  6  ACCELERATIONS  UNTIL 
SAXI2UK  ALLOWABLE  PE2F0RBANCE  IS  3  EACH  ED 

**  «*•***•**  •  *•*«*»••**•*****•«•»•• 4  «••*»*  444 4 4***4* 4***4  *******  >•>»< 

SUEHOUTINE  B00ST3 

CCB.BON  /AEC2/  ANEk  ,OEUC ,  XTEHP  ,1 CLD,  £  A EW  ,DELT  ,  YTSa?,  YOL2,ZN  EH ,  EELZ, 
IZTEMP.ZOIE 

C0N30N  /A3C4/  AG  1  .  AH  1 -A  I  1  ,A  J  1  ,  AJ2 
CCBKON  / A  EE  1 /  UEOl, 7  EOT , SOOT 
COaaON  /  A  £  E3  /  Ai.AY.AZ 

coaaos  /AEE4/  THHAX. ANBAX .CL.IAX.GEE, TO.RHOSSL, 7L,CDO,CDK, AREA.DTDH 

COHHON  /A  EE5/  E  »C  ACC ,  AN , HCO  NT 

SCCNT=1 

10  CONTINUE 

1=0 

IF  (AG 1.EQ.DELX.C5.AG1.  3Q.0. )  GO  TO  20 

IF  (ABS  (AG11  .  LT.  AES  (AH!)  .  AND.  AES  (AG1  )  .LI.ABS  (All)  )  1=1 

IF  (I.NE.1)  GC  TO  20 
0CQT=1 . 02*uDOT 
20  CONTINUE 


IF  (AH  1 .EC.D2L Y.OR. AH1.  2Q.0. )  GOTO  30 

IF  (ABSjABl)  .  LT- AES(AGI)  .  AND.  AES  (AH1 )  .LI.ABS  (Ml)  )  1=2 

IF  (1. 33.2)  GC  10  30 

VCCT=1 .  02*VDOT 

CONTINUE 

IF  (A1 1 . EQ.DEl2.Oa.AI1. 20.0.  )  GO  TO  40 

IF  jABSJAIl)  .  LT.  AES  (AGI)  .  AND.  AES  (AT  1  )  .LI.ABS  (AH1)  )  1  =  3 


IF  (ABS  (All)  .  LT.  AES  (AGI)  .  AND.  AES  (All)  .L 
IF  jl. NE.3)  GC  TO  43 
HCCT=1 . 02*WDOt 
CONTI 3  0  E 

IF  (AG1.SC.D21X.OE.AG1.2Q.O.)  GC  TO  50 
if  Jabs  (AGi) .  ec.  aes  (AH)  .  and.  aes  (agi  )  .l 

IF  jl.NE.41  GO  iO  50 
□C0T=1 . 02«riDOT 


I.  ABS  (A  H 1 )  )  1=4 


WDCT= 1.02*ADOT 
C03TIS OE 

IF  (AH1. EC.OSLT.OB.Aai.  2Q.J.)  GOTO  60 

IF  (ABS  (AGI)  .  EQ.  AES  (AH1  )  .  AND.  AES  (AGl  )  .LT.  ABS  (All)  )  1  =  5 

IF  (I.  NE.5)  GO  TO  oO 

UD0T=1 .0  2*UD0T 

VC0T=1 .02*VDOI 

CONTINUE 

IF  (AI 1. EQ.DEL2.0a. All.  2Q.0. )  GO  TO  70 

IF  (ABS  (A81)  .  EQ.  AES  (All)  .  AND.  ABS  (AH1)  .LI.ABS  (AGI)  )  1=6 

IF  fl.  SE.3)  GC  IQ  70 

VECT=1 . 02*VDOT 

BDCT= 1.02*WDOT 

CONTINUE 

CALL  SHLCAL 

CALL  TH3CST 

IF  (AM.GE.ANaAX.OS.FSDACC.GE.IHRAI)  GO  TO  BO 

GO  TO  10 

CONTINUE 

IF  (AN.GI.ANMAX)  AN=  ANHAX 

IF  (FW  CACC.GT.THSAX)  FW  DACC  =  T  ESAX 

RETURN 

ESC 


nnonno 


X?,701E, 


nEA.DTDH 


su3aouu:J2  aeauca 

RELUCR  IS  CALL  FPCM  ACLNTS  AND  REDUCES  THE  "  S 
V  ELCCIT I  AMD  U  LT  IX AT  ELI  POSITION  TO  GET  LOADS 
ON  TIE  AI2C3AFT  NIT  HIS  LINUS. 

4* 4 »*»**»»**** •  **•******«***«*•**•*.*«******«*•***•••«•*****• 

SUEROOTINE  aEE'JCS 

COMilON  /ABC3/  VEILS,  VELOT  ,7ELCC,  S.UN  EM,  JTEIt?,  BOLD,  V  SEW  ,  VT  E 
IHNEW.VTEKf.WCLC 

C0H3ON  /  A  EC V /  AG1  ,AH1,AI1  .AJ1.AJ2 

CCHHOS  /AED2/  VSTALL,7HAX,VSAX1,VHAX2,3ELTS2,DELTV,DELTZ 

cannon  /AEZ3/  AX,AI,AZ 

CQBHOS  /A££U/  T  EX  AX  ,  ASX  A  X  ,Z  LSAX.GSE,  TO, 3ROSSL,  JL.CJO.CDK,  A 
C09H0N  /  A  EES  /  F  liC  ACC  .AN  .  SCO  ST 

ccaaos  /ice/  x i.t i,ii,v i , its, it?.2 
accsr=i 

10  CCSTISOE 

VELON=VELCS-DEITV 
A*VSTALL+2.*D£LTV 
IF  (VS LO N.GE. A )  GC  TC  20 
ANG= ACOS  (  AG  1/  A  J  2) 

AJ2=1 . 1*AJ2 
AG  1— COS  (ANG)  •  AJ2 
AH1*SIS  (ANG)  «AG2 
V  ELON*  V  1 
>0  CONTINUE 

N*0 

CALL  XVELCS 
CALL  iVDCTS 
CALL  SKLCAL 
CALL  THRUST 

I?  (AN.LE.ASHAX.AND.c'JDACC.  LE.IHOAi)  GC  TC  30 
GO  TO  10 
30  CONTIS OE 

SETS  SS 
END 


/ 
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*  *  ♦**«**«#****  ♦***»»****♦  *******  *********  **********************  ******** 

subroutine  smlcal 

(SHALL  CALL)  IS  A  SMALLER  VERSION  OF  (310  CALL)  A  HD 
USED  IN  THE  ITERATIVE  LCOtS  OP  (AIRCRAFT  LIMITATIONS) 


SUBROUTINE  SMLCAL 
CALL  BVOOTS 
CALL  DELVEC 
CALL  TMPFNT 
CALL  TMPVEL 
CALL  INBTHM 
CALL  ANGLES 
CALL  ROT  SAT 
CALL  ACT? Ml 
CALL  ACTEM2 
CALL  ACTBMJ 
CALL  ACHVEL 
CALL  ACACC 
RETURN 
END 


SUBROUTINE  THRUST 

THRUST  IS  USED  3Y  f  AI3C  RAFT  LIMITATIONS)  TO 
TEE  AVAILABLE  ECBRAiiD  ACCELERATION  oABID  UPO 
CRAG,  G-LD  AD  IMG ,  POSITION  IN  SPACE  AND  GRAVE 

***********  ** ****  *  *  *  *************************************** *** 

SUBROUTINE  TURCST 

COMMON  /A  EC  2/  XN  E  '•  ,DELX  ,  XT3  MP  ,  ICLJ,  V  N  EX  ,  DSLY  ,  If  I SMP,  XOL  D,  2 
1ZTEHP, ZOLI 

COMMON  /ABCS/  VEICN , VEL JT , VE LCC, 3, US B» , 0T2SP, BOLD, V  MEM , VT 
1WNEH.NTSBE.NCLC 

COMMON  /AEDU/  ESINEX  .THEN  Z'i  ,  PHIMEX,  PSIOl  J  ,  I'd  EO  L  D,  PHICDD 
COMMON  /AE 13/  AX  ,  AT  ,  kZ 

COMMON  /A  EE1* /  1HM  AX  ,  ANM  A  L  ,C  LM  AX ,G EE ,  TO,  SHOSSL,  XL.CDO.CDK, 

COMMON  /Ate 5/  i'ii  t  ACC  ,AH  , MCONT 

A  NG=TH  EN  E  X 

THSQD=  AX/GES 

AN=5QH  T  ( A  X**2  ♦ AZ**2)  /GEE 

SIGMA3  (1  ♦CTDH*ZTE!1P/T0)  *•<*.  25  7 

RHOALX=SHCSSL*SIGMA 

CL=(2.  *.AN»«L)  /  (PHCALT*VELCT**2) 

ERAG=AN* ( (C30*CSK*CL**2) /CL) 

? iOACC -SIN (ANG) ♦THE  wU  +  DRAG 

RETURN 

END 


JMPUTS 

THRUST 

r 

«»*****• 

5W,CSLZ, 
IP, vote. 


A3EA.DTDH 
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c»* *********  ******  ********************  ****  ******************* ** ********* 

C  SD6B0UTINE  XCfcNGE 

C  ONCE  THE  EQUATIONS  OF  ACTION  ABE  SATISFIED  AT  THE 

C  F SCiCS-Z  LOCATION  (TEN?)  THE  ISA?  LOCATION  BE  CCA  IS 

C  THE  CUBaSNT  LOCATION  (OLD) . 

c ****************************** ***************  ************** *•*«*•***•** 

subroutine  xchnge 

CCMCCN  /  AEC2/  XNrW.DELX.XTS!!?  ,XCLD,  T  N  Z'i  ,DELZ  .  YTSMP ,  TOLL’ ,  Z  N  SW  ,  Z  2LZ, 
1ZIEKP. ZOLD 

COMMON  / ABC3/  7ELCN, VELOT.YELCC.S, ONE W, QTSK?, GOLD, 7  NEW. VTS ME, VC LC, 
lUNEW.WTSKE.WCLC 

COMMON  /  A  E D4  /  ES 1NEW  .THEN  EW  ,  P HINEU,  ?  SIC LD ,  THEOLO  ,  PH  IOLD 

XOLD=XTEME 

YCLD=YTEME 

ZOLO*ZT3MP 

aOLD=UTEHE 

VOLD*VT2ME 

U0LC=WTE3E 

P SI OLD=P SINEW 

theold=tee:iew 

PHIOLD =P HIDE W 

VELOO=VE1CT 

BETUHN 

END 


C** *********  ******************************  *********************  ********* 

C  S U 5BOUTIN E  W AYPNT 

C  THE  SELEVANT  PABAIETEBS  FCF  THE  C3HBZHT  POINT  ABE 

C  ASSIGNED. 

C »*  *  ****************  **************************************************** 

S U  EEC J TINE  WAVE  NT 

COMMON  /ABC  1  /  '.X(  ICC  0)  ,WY  i1-,0C)  ,*L(1  COO)  ,WU(  1030)  ,WV  (1JQ3)  ,WK  (1000 
1)  .WH(IOOO)  ,  WP  (  1000)  , -J  (  IOoC  )  ,  WG  (10JO)  ,  I  (1000)  ,  ICT 
COMMON  /  A  BC  2/  X» EW , DELX , X  TSMP , XCLD,  Y N EW , DELY , £  TEMP, YOLD , Z N EW , DEIZ , 
1ZIEMP.ZOLD 

COMMON  /  JEC3/  VELCN, VELOT.VELCC, N.UNSW, OTSfl?, GOLD, VNEW.VT SHE, VCLD, 
1  SNEW , WTZ3F , *01 E 

COMMON  /AED2/  VST  ALL  ,7*.  AX  ,7  M  A  X  1 ,  V3AX  2 ,  D  ELIES  ,  0  ELI  V  ,  DELTAS 

COMMON  /ABD**/  E  SI  NEW  .THEN  EW.PHISEW.PSIGIC.TdiOLD.PHIOLD 

COMMON  /AEES/  F3  £  ACC ,  AN  ,  M  CO  NT 

WX  (ICT)  =XCLD 

UY  ICT]  =  YCLD 

WZ  (ICT  i  =  ZOLO 

WO  (ICT)  =UCLD 

UV (ICT) =VOLD 

UK  (ICT)  *  KCLD 

UH  (ICT) =-PSINEH 

UP  (ICT)  =  THEN  E  K 

US  (ICT) =-EHINEU 

UG  (ICT)  =  AN 

T  (ICT)  =T  (ICT-  1)  -fOELTEE 

BETUHN 

END 
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SUBROUTINE  PILE 


T£E  CURRENT  P0IN1  IS  IN  BED IAI2LX  SAVED. 


S0E80UTINE  FILS 

COHNQN  /ASCI/  8X11000) , BY  (1000) ,S2 
1)  ,8H(1Q00)  ,  WP  (  10  JC)  ,  8R  { 1000)  ,  SG  <K 

coasoa  /aec.2/  xNEw.DiLx.xcsHP.xcLi 

IZIESP.ZCLE 

COMMON  /ICC/  XI, 11,21,71,115,1152 


>•**««*•****■ 


'aa(,oco 

H  /AEC2/  XNEW,  D2LX  ,  XTEMP  ,2012,  i'  Nc«  ,DELY  ,  YTEM? ,  YCLD, ZSZW  ,  2212, 


IF  (XOLD-NE- XNES.CR.  YOLO.  NE.  YXES.OR.  ZCLB.  NE.  IN  3W)  GOTO  10 
R  BITE  (1  1,20)  T  (ICT)  ,8X  (ICT)  ,  AY  (ICT)  ,82  (ICI)  ,SU(ICT)  ,8V(ICT)  ,  88  I 
U^*H  jfCI)  ,8?  (ICI)  ,8R  (ICT)  ,  RG  (ICT)  .ITS 


CONTINUE 

LIR*0 


WRITE  (1  1.20)  T  (ICT)  ,8X  (ICT)  ,  SI  (ICT)  ,'SZ  (ICT)  ,83  (ICI)  ,'SV(ICT)  ,*8(IC 
Uy.HjICIj  ,8P  dCT)  .-fidiT) /8G  (ICT)  .LTR  "  V 


FOaKAT  (11  (210-4  ,1X)  ,13) 
c  N  E 


S  UEBCUTIN  E  G  a  Ac  IX 

THE  CURRENT  POINT  ALONG  THE  TRAJECTORY  TO  THE 
CIS  IBS!  WAYPOINT  IS  PLOTTED. 

S  U  SHOD  TIN  E  GSAIIX 

COMMON  /ASCI/  AX  (1000)  ,81(1000 ,82(1  000)  .  NU  (  100J)  ,8V(1Cv)0)  ,8W(10CJ 

i)  ,sh(1o6o)  ,s?  (looo)  ,w?.(ioJ0) ,  «g  (1000)  ,x  (iuo5)  ,ic: 

COHHON  /HN  1/  dl  NX, a  A  XX,  .11  NY  ,H  AAY  ,  MIN  X  1  ,  MAX  X 1  , MIX X2 , MAX X2 


p  X  1  =  8 X  (ICT-  1  ) 
PX2=WX  (ICT) 


PT1«riI (ICI-1) 

EY2»'8I  (ICT) 

CALL  SIN  (MINX  ,  H  A  XX  ,  13000, ,  1 20  CO . ,0) 
CALL  G8VECT  (0.,fXl,?Y1)  , 


<0.,FX1,PY1) 


CALL  G3VECT  (1.  ,El2,EY2) 

CALL  GSFRCE 

RETURN 

INC 


» 


nnnnnn 


SOESCUTINE  ESSCHK 

ESRCHK  CHECKS  THE  D2SI3ED  WAYPOINT  AGAINST  SANE 
IMITATIONS.  WHENEVER  POSSIBLE,  CORRECTIONS  ARE 
A  C 1C  HAT  TC. 


10 


20 


30 


HO 


50 

60 


SUBROUTINE  ERR CHE  (TERR) 

CCMNON  /ICC/  X  1  ,  Y  1 ,  C  1 , 7  1  ,  IT  S ,  LT R 2 

CGNflON  /PARU/  APE  SAX, (UNI  N,  riTNAX,  POP  SIN  ,BA  ALT,  JR.llN  ,  BRNAX  ,  3RR fil  N  , B 
188HAX, HTE.ANT5 
CO 3 HO N  /TAR/  TA8GX.TARGY 

0Y*TAHGY-Y1 

DIST=»S QRT  <DX**2+CY«*  2) 

IP  (DIST.LE.PCEBI!.)  GO  TO  10 
IF  (Z1  . GT. APPNAX)  Z1  =  A?PHAX 
IF  JZ1  .LI. HI. 'll  N)  21  =  HTMI  N 
CONTINUE 

IF  (LTR.SE.65.CF.ITH2.N2.65)  GC  TO  20 
IF  (Z1 .LT.BAALI)  Z  1=  E  AA  LT 
CONTIN US 

IF  (LT3.  NE.06.  OR.  LTS2.N  E.  66)  GC  TO  60 
IF  iZI -LI.3RHIN)  2 1  =  BSHI N 
IF  iZ1.GT.3a.NAX)  Z1  =  ESNAX 
IF  DI  ST.LE.3  5RNAX.  AND.  01  ST.  G  E.3naMI  N) 

IF  DI3T.GT.  3RSNAX)  . S3  P  =  1 
IF  i  01  ST  .  LT.  3  a  SHI  X)  1238=13 
8  ETU3N 
CONTINUE 

TGIHDG  =  A1AN2  (DY.OY)  *  5TD 
IF  (TGTHEG.LT. 0.)  IGTHDG=TGTHEG* 360. 

□X=X1- WX  (ICT) 

DY=Y1-  « Y  (ICT) 


GO  TO  30 


ACH2G=ATAM2(CY,CX;  *R ID 

IF  (AC  HDG.LT.  0.)  ACH  0G=  AC  HOG  ♦  360  . 

HCGLNT=  AES  (T  GT  ECG-ACHDG) 

IF  (H0GLN1.L2.5.I  GO  TO  40 
I£38=10 
RETURN 
CONTINUE 


OIST=SORT  (DX**2  +  DY**2) 
S  EEED=  S3  HT ( WU  (ICT)**2« 
DI=DI3T/SPt2D 


2*WV  (ICT)  **2 ♦  Wii  (ICT)  **2) 


IF  (DT.G2.2.J3)  GC  TC  50 

IE8H=  1  1 

RETURN 

CONTINUE 

CONTIN  UE 

RETURN 

END 


non  nnnnn 


» 


i 


c«* *»»•*»*** •*««•*< 

sueboutine  aispt 


t  ***«  *.»***»-*« 


THIS  SUBROUTINE  SAHKS  A  LISE  FROH  THE  CURRENT 
AI3CRAJT  POSITION  TO  THE  TAGET  AS  A  USER  AID  IS 
ALIGNING  30S3  RELEASE  POINT. 

>#  ****************  *•*****••«  ******•***»**********•***•»*»******•••«**** 

SUBROUTINE  A I  2  ET 

C03H0M  /AEC1/  NX  <  1000)  ,  AY  (100  0)  ,SZ(  1  CCU)  .  W  0  ( 1 0  00)  ,  AV  (1  000)  ,  AW  (1000 
1)  ,  AH  (1  000)  ,  WP  ( 100C)  ,  .R(  1  000)  .  »G  <  10U0  )  ,  T  (1000)  ,  ICT 
COMSON  /TAR/  TARGX.TARGY 
R£AL«H  TX.IY.TXI.TYI 
CALL  AIN  (.1ISX.3AIX,  13000.,  120C0.  ,0) 

TX=3X (ICT) 

I  Y*AY (ICT) 

TX1-TARGX 
TY 1 =TA 2G  Y 
CALL  GSLI  (1) 

BCVE  ASE  DBAS  CASfEC  LISE  TO  CURRENT  AA Y ENT  COORDINATES 

"call  gbvect  (0.,:x,TYr 

CALL  GBVECT  (1 .  ,111, III ) 

CALL  GSLT  (0) 

CALL  GSFSCE 
B STUBS 
END 


UUUUU  OU'J 
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suaaouTiNE  pbesst 


t  *  sc  *  at  a  a  cc  a  *  «  «  a 


THIS  SOSHOUTIKE  WRITES  THE  P001  AND  MICE  II  FILES 
FCB  TEE  USES. 


SUEBOOTIN  E  PBESET 


COMMON  /PAB4 /  AEP  MA  X  ,3T  MI  E,  Ht  t  AX  ,  POP  HIS  ,  £  A  ALT,  i 
ISaeAX. 3TC.AKTF 

COMMON  /OPT/  TG'JN, I^NCH. I2XT. ISAM, IME.KEa.IMPZ 
COMMON  /NAM/  I N  AM  1  (  I)  -I..  A  M2  (  2)  ,10:73.  IA  NB.  ID3ST 
DIMENSION  XI  0(200)  ,  Y10  (203)  ,VEt{203) 

DIMENS  ION  aCSTAc  (  1000) , IINK ( 1 0| 

DIMENSION  V  A  I 1  N  2  1 2  0  3 )  ,  7  A  C  3  ( 2  0  6 )  ,  7  AT  5  (203) 


VULNERABLE  AfiEA  TABLE  VS  TYPE  1  ASC  2  WEAPONS 


/  y  w  •  xi  w  r  x  >  w  ^  uw  ^  w  „  •  -*  j  i  »  a",0  7uo.j^j.j(w  t*-  •  J  JO  r>  .tj  *  »  »  jj 

57, 2*  .6  96  <5,6*5.574, 2*. 65bd, 6*5.551, 2*. 6968, 6*3. 574, 2*.o  56  d,o*7. 357, 
62*. a96d, 6*5. 574, 2*. 4645, 6*7. 107/  '  ' 


VULNESA3LS  ASEA  TABLE  VS  TYPE  3  WEAPONS 


DATA  VAT3/2*12-54,6*1J.47,2*9.c53,n*  10. 51,2*9.  S3  9, 4*11.15,2*12. 64 
16 *14. 79, 2*9. 639, 6*11. 15. 2 *9. d*3, 6 *10. 51, 2*9. 63 9, 6*11. 15, 2*12. 64, 6 

'iiit  to  l  a  a  -  jo  i  -»  c  -  -  i  -j  o  c.  -  A  „  i .  jir  j..o  -it  tI.. 


T.UJ-J  ,  C.-  l  U.  J 

612. 54, 6*13.47/ 


V0LNEBABLS  AHEA  TABLE  VS  TYPE  5  WEAPONS 


DAIA  VAT5/d*55-37  ,8*43.  22  ,8 *47. 1 Q  3*62. 53 , 3*47 .  1 0 , 3*43. 22 , 6*4 7.  1 0, 
18*62.5  3.  8*4  7.  1C.  3*5.  76 1 , 3*27. 45,3*33  .07 ,3  *27 . 4  5, 3*5 . 76  1 ,3  *  27 . 45 , 3* 
233.07,9*27.4  5,3*5.76  1,6*4  7.  1  0, 6*62. 5 3 , 8*4 7 . 1 0 , d*4J. 22 , 3*4  7 . 1 0  ,d*62 
3. 53, 8*47. 10, 9*55. 37/ 


BACAS  CSOSS  SECTION  TABLE 


DATA  3 CS TAB/ 1  9*  10 CO.  ,  19*  1  00.  ,  1 9*1  0.  ,  19*  1 0.  ,  1 9*  1 0.  ,  1 9*  1 00.  ,  1  9*  10 0 0. 
1,867*0.0/ 


CALL  EBBSET  SGPPBESSES  ANY  POSSIBLE  UNDEBFLCW  PROBLEMS  THAT  MAY 
BESULT  EHOM  MANIPULATION  OF  SCENARIO  PABAMETEBS. 


CALL  EBBSET  (  2C8 , 50,  -  1,  1 ,  1) 
JAM-0 


CABD  2  TIME  INCBEMENT  CALCULATION 


TINC*T  (ICI) /I QCC. *0.0008 


CABD  6  TIME  INCBEMENT  CALCULATIONS 


TINKI*0 
DC  10  1=1,9 

TINK(I) =TINXI*T  (ICT) /10 
TINKI*TINK (I) 

CONTINUE 


FOLLOWING  GENERATES  VELOCITY  MAGNITUDE  AT  EACH  POINT 


DO  20  1*1, ICT 

VEL(I)  =SCBT  (WU  (I)  **2*WV  ( I)  •*  2  *44  (I)  **2) 
CONTINUE 


/////*****  PUNC3  P BCG  SAM* ****///// 


>  « 


»  « 


»  • 


►  • 


nnnn  non  non  non  ono  noow  non  non  nooono  oooonn  no 


OPTION  10  PUNCH  THE  P001  CA3D  DECK  Qg  MICE-II  CASD  DECK 


IF  (IPNCH.3Q.2)  GC  TC  40 
COMMENCE  PUNCHED  OETPCT  CF  THE  P001  CARD  CECK. 

THE  JCL  CARDS. 


MBITS  <  1  3 , 70 )  IhAM1(  1)  ,  INAS1  (  2)  .  IUNR  ,  IANE  ,  IN 
IF  (ID  EST.SQ. 2)  WHITE  (18,80)  IONS 
i  BITE  (18,90) 

W  SITE  (13,100) 

WRITS  (18,110) 

WRITE  (18,120) 

WRITE  (18,130) 

WHITE  (13,140) 

WRITE  (13,150 
WHITE  (18,160) 

WRITS  (18,170) 


IN AH  1 (1)  ,INA31  (2)  ,ioua 


LEADING  BLANK  DATA  CASD  SIGNIFIES  BADAR  HASHING  AN GL 


THE  ODTPUT  TITLE  CARC. 


WRITS  (13,200) 


CABO  2 


WRITS  (18,180) 

WHITE  (18,210)  I(ICT),TINC 


THE  2 A  CARDS  (MILESTONES). 


DC  30  1=1, ICT 
WU  (I)  =  ViU  (I)  *  AMTF 
W  7  (I  =WV  (I)  *  A  KT? 

WW  (I)  =WW  (I)  *  A  MI  E 

WHITE  (18,220)  T  (I)  ,  »X(I)  ,WT  (I)  ,  W2  (I)  ,  WU  (I)  ,  WV(I)  ,  WW  (I)  ,  W  H  ( I)  ,  W  ?  (I 


CARD  3  (GUN  EMPLACE  MS  AT  CABO)  . 


18,240 

18,250 


CAED  4  (GUN  TIPS)  . 


WRITE  (18,230) 
WHITE  (18,260) 


XGUN  (  1)  ,  I G UN  (1)  ,  ZGUN  (  1) 


CARD  S 


WRITE 

WRITE 


HMWi 


CASD  6 


WRITE  (18,280) 

WRITE  (18,290)  (TISK  (I)  ,1=1  ,9  ) 

CARD  7  (VULNERABLE  AREA  TABLE  VS  TIRE  1  AND  2  WEAPONS) 

WRITE  (18,3007 
WRITE  (18,310) 

WRITS  (18,320)  (VAT1  N2  (I)  ,1  =  1  ,208) 


CARD  12  (EXECUTE  HON). 
EXTENEED  OUTPUT  OPTlts 


WRITS  (18,330) 

IF  (IEXT.NE.1)  WRITE  (13,350) 
IF  (I8XT.E0.  1)  WHITE  (Id,  340) 
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nnn  non  nnn  non  non  nnn  cinn  *?n<? 


>  ( 


»  < 


C  THE  REMAINDER  OF  TEE  CARDS  I NT30D  UCE  NEW  GUN  LOCATIONS,  GUN  TYPES 
C  A  SC  VULNER  ABLE  A3  E  A  TABLES_:0  _3  E  EXECUTES  3Y  THE  PROGRAM. 


WHITE  (18,240) 

WHITS  (18,250)  XGEN  (2)  ,  YG  UN  (2)  ,  ZGU  N  (  2) 


EXTENDED  OUTPUT  OETICti 


WHITE  ( 1  8  ,330) 

IE  (ISIT.NE.lj  « BITE  (Id,  350) 

I?  JlEXT.EO. 1)  WHITE  (13,340) 

WHITE  <  1 8 , 240  j 
WHITS  (18,250)  XGUN  (3)  ,  YGUN  (3)  ,ZGL'N(  3) 
WBITE  ( 1 8 ' 230 ! 

WRITS  (18,3ou) 


EXIEHD2D  OUTPUT  OPTICS 


WHITE  (18,330) 

IF  (ISXT.SE.  ij  WHITE  (13,350) 

I?  jlSXT.SO. 1)  .BITE  (13,340) 

WHITE  ( 1 8 , 24  0 j 

WRITE  (18,250)  XGUN  (4),  YGUN  (4)  ,ZGUN(4) 


EXTENDED  OUTPUT  OPTICS 


WRITS  (1  8,330, 

IF  (IEXT.Ni.lj  WRITE  (13,350) 

IF  jlSXT.EO. 1  WBITE  (18,340 
WHITE  (18,2uoj 

WHITS  (1  8  ,25  J  j  XGUN  (5) ,  YGUN  (5  )  ,ZGUN  (  5) 
WHITE  (18,230) 


WRITS  118,370) 


CARD  7  (VULNERABLE  JEEA  TAB-Z  V3  TYPE  3  WEAPONS) 


WRITE  (18,300) 

WRITS  (18,410) 

WHITS  (18,320'  (VAT 3  (I)  ,1*1,208) 


EXTENCED  OUTPUT  OPTICS 


WHITE  (18,330) 
IF  (IE  XT. NE.  1 ) 
IF  (iSXT.Evj.  ij 
WRITE  (18,240) 
WRITE  ( 1 8 , 250 j 
WRITS  (18,230) 
WHITE  (is.jaoj 


(IE  XT.  NE.  1 )  WRITE  (18,350) 

(iEXT.EO. 1  WHITE  18,340) 

TE  (18,240) 

TE  ( 1  8 , 250  j  XGUN  (6)  ,  YG  JN  (6)  ,ZG(JH  (6) 


EXTENCED  OUTEUT  OPTICS 


WHITS  (18,330) 

I?  (ISXT.NE.lj  WRITS  (13,350) 

IF  (TEXT .  EQ.  1  j  WRITS  (18.040) 

WRITS  (18,240) 

WHITE  |ia,250)  XGUN  (7) ,  YGUN  (7)  ,ZGUN  (7) 
WRITE  (18,230) 

WRITS  ( 1 8  ,  J90) 


CASO  7  (VULNERABLE  AREA 

W  BITS  (18,300) 

WRITE  (18,420) 

WBITE  ( 18,3 20 j  (VAT 5(1)  ,1*1,208) 


VS  TYPE  5  WEAPON) 


EXTENDED  OUTPUT  OPTION 


WRITE  (18,330) 
IF  (ISXI.NE.lj 
IF  (lEXT.E3.lj 
BRITS  (18,400) 
IF  (IPNCB  . SO ■ 


WRITS  (1  3,350) 
WBITE  (18,340) 

1)  BSTURN 


FCR8AT  ST ATESEXT 3 


>  • 


>  • 


nnn  nnn  nnn  non  non  nnn  nnnn  non  u>nnn  nnnnnnc 


CONTIS  UE 


CCflflENCS  PUNCHED  OUTPUT  CF  THE  3ICE-II  CAHD  DECK 


CH  SCX  FOB  VALID  3ISSIIE  DESIGNATION  MU-13  S3  F03  3  ICS  II 


If  (IS  AH.  IS-  7  .  AND.  13  AH.  GE.  1)  GC  TO  5C 
RETURN 


THE  JCL  CABDS 


WRITE  (11,430)  INA32J1)  .INA32  (2)  .  IUN  B,  I A  No ,  IN  A32  ( 1 )  ,ISA32  (2)  .IONS 
If  (IDcST.EO.c)  WRIT-  (17,440)  I0N5 
WRITE  (17,450) 


WRITE  (17,460) 
WHITE  (17,470) 
WRITE  (1  7,430) 


THE  OUTPUT  TITLE  CABDS 


WRITE  (1  7,49  0) 
WHITS  (17,500) 


THE  ESC3LE3  BON  INEUT  CARDS,  CHECKING  FOR  TIPS  OF  313311 
TC  INPUT  TO  NICE  II 


WRITE  (17,510 
If  (ISA3.r0.li  WRITE  (1  7,660) 
I?  (XSA3.Eg.2  WRITE  (17,590) 
If  (I3AH.E0.3J  WRITE  (1  7,  7001 
IF  (IS  A3.  Eg.  4  )  WRITE  (17,710) 
IF  (I3A3.EJ.5)  WRITE  (17,720) 
IF  (I3A3.cg.oS  WRITE  (17, 730) 
_  _ IF  (I3A3.SQ.7)  WRIT!  (1 7  ,74y ) 

THE  PSSK  CALCOLATICN  CARDS 


WHITS  (17,520) 
W2ITE  (1  7,530) 


THE  BACAH  CROSS  SECTION  TABLE 


WHITE  (17,540 
WHITS  (17,550 
WHITE  (17,560 


WRITS  17,570) 

WHITS  1 7 , 530 S  (aCSTAB(I)  ,1=1  , 133) 


THE  SI3ULATICN  TI3E  PARA3ETERS 


WHITS  (17,590) 
WRITS  (1  7  ,o00) 


THE  HIS3L2  LAUNCHES  LOCATION 


WRITS  (17,610) 

XES  AH= XS  An* A3  T  F 
YF£A3=  YS A3*A  3  TF 
ZFSAH=2SAH*A3Tf 

WRITS  (17,620)  XFSAK ,  IPS  AH,  ZPS  AH 


THE  TA5GET  TSAJECTCRY 

WHITE  (17,630) 
WHITE  (17,040)  ICT 


THE  HILSSIONE  CARDS 


DO  60  1*1, ICT 
WX  (I)  =  WX  (I)  *  A  3  T  f 
3  Y  (I)  =  WY  (I)  *  \  3 T F 
WZ  (I)  =  WZ  1 1)  *  A 3 T  f 
7EL  (I)  =VEL(I)  *  43TF 
WHITE  (1  7  ,6o0)  T  (I)  ,  W 
CONTINUE 


NX  (I)  ,WY  (I)  ,WZ(I)  ,  V  EL  (I)  ,  W  ?  ( I)  ,WR(I)  ,  3  H  ( I) 
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( 


c - 


C  END 

OF  PON C 

KBITS 

KBITS 

'  RETURN 

C  /////***** 

70 

FORMAT 

80 

FOSSA T 

90 

FCBMAT 

100 

FORMAT 

1  10 

FORMAT 

120 

FORMAT 

130 

FORMAT 

140 

FCBMAT 

150 

FCBMAT 

160 

FOBMAI 

170 

FCBMAT 

180 

FOB/.AT 

190 

FCBMAT 

200 

F05MAT 

210 

FCBMAT 

220 

FORMAT 

230 

FORMAT 

240 

FCBMAT 

250 

FORMAT 

260 

FCBMAT 

270 

FCBMAT 

280 

FORMAT 

290 

FORMAT 

3u0 

FORMAT 

310 

FCBMAT 

320 

FORMAT 

330 

FOBMAI 

340 

FORMAT 

353 

FORMAT 

360 

FCBMAT 

370 

FCBMAT 

380 

FORMAT 

390 

FCBBAI 

400 

FORMAT 

410 

FORMAT 

420 

FORMAT 

430 

FORMAT 

440 

FCBMAT 

450 

FORMAT 

460 

FORMAT 

470 

FORMAT 

480 

FORMAT 

490 

FORMAT 

500 

FORMAT 

510 

FORMAT 

I20 

PORMAT 

530 

FORMAT 

540 

FORMAT 

550 

FORMAT 

560 

FORMAT 
160. •  /, 
2411130. 

570 

FORMAT 

580 

1. 3H90. 
FORflAT 

590 

FORMAT 

600 

FORMAT 

17,670) 


PCB3AT  statements  *»»«*///// 


(28//,2A4,oH  J03  (, XU,  18, ,14, 
(  19H//*MAIN  C5G=NPG7M1.  ,14 , 1H 
( 16 H//  FXEC  ?GM=?1AD) 

4  2H//ST  £9  LI  B  DO  D  IS  P  =  SH3  ,  DSN 
47H//GC. FTG7~JJ 1  JD 
41H//  £C£=  (R  £C?M  =  73S  ,  LR2CL*4 
22H//GO.  FTC9FOO 1  DD  DUMMYl 
25H//GC.iTCbFOO 1  DD  3YSOUT=A 
18H//GC.  FTC5  F00  1  DD  *) 

11H1  ,  1  ,0,0, 0,0) 

2H01) 

2H02) 

2H05) 

42H  AI BCR  AFT  CCM3AT  SOnVI 
7 HO,  1  2,0  ,  ,f  7.2,  OH  ,1  OOoCO.  , ,  F 
10(F7.  1,11)) 

2H04) 

2H03) 

3(1X, F7.S) ,103  0.1,360.0) 

19H0 , 1.1, 1.1,1,0.0,50.) 

7H1,  1  ,  1.0) 

2H0b) 

3n1^,9(H,?7.3)) 

U9H  VULNEJABLS  A B 2 A  TABLE 

8F3.3) 

2  HI  2) 

1 3H  1  ,  1  ,  1  , 1  , 1  , 1 , 1 ) 

1 3 HO ,  0,0,0,  1,  I,  ! ) 

2CH0 ,2 , 1  ,  1  ,1  ,1 ,0. 0,50 .3) 

20 HO,  3,4,4,  1,1,0.  0,50.0) 

20HJ, 3,3, 4,1 ,1,0. 0,50.0) 
(20H0,  5, 3, 2,  1,1, 0.0,  50.0) 
(23/*) 

4 3H  VULN  E5.A3L  2  ASEA  TABLE 

42H  VULNERABLE  AHEA  TABLE 

2H//.2A4.6H  JOB  (  .1 4  .  1H , ,  14  , 
19H//*KAIS  05G=':PG73l.  ,14,13 
2 8H //  EXEC  PGH* MICE, REGION*] 
i 44 d//ST EPLIB  DD  033  =  3  S3. ?U55 
i 23H//F1C6F001  DD3YSCUT*A) 
15H//FTC5F00  1  00  *) 

2H0  1) 

53HA2  3251  ***  *  S  US 71 V ABILIT 

2H06 ) 

9X. 1HO,8X,2HO.,9X,1HO,4X,  1H0 

7X.3823. , 3X, 231 9, 4X, 1H7.4X, 1 
<8X,2HQ.,7X.3H10..7X,3H20.,7X 
7X.3H70.  .7X,JHdO.  ,7X, 3HSC. ,oX, 
,/,6X,4(U40.  ,6  X,4H  1  50.  .bX,Jni6 
(bX.48-90. ,b  X , 4H- 60. , 6 X, 48-30 


2H)  , , 1H*  ,2A4 ,18  , 14 ,2 H P  ■ ) 
£) 

=  MSS. F0559. PIPSAV) 
DA.SPACJMCYL,  (1,1,))  ,) 
04,3LdSi:2=32Jo) ) 

) 


V ABILITY  SCENARIO) 
7.4,1  H/) 


VS  TYPE  1  „ND  2  WEAPONS) 


I! 


VS  TYPE  3  "WEAPONS) 

VS  TYPE  5  WEAPON) 

2H)  ,  ,1H*  ,2A4, 1H  ,  14,23PM 

80K ) 

9.MICE3A V, ois?=sna  ) 


Y  SCENA3IO****  SAM  ENCOUNTER) 

,4X,1H0,8X,2H0.  , 3X  ,2H0 . ) 

Hi) 

,3H30. ,7X,3H40. , 7X , 3H SO . , 7X , 3H 
4H 100. ,o  X • 4  3 1 10 . ,bX,4H12u. , o  X, 
0,6X,4H170. ,oX,4H180.  ) 
,dX,2HU.,7x,3.130. ,7X,3HoO. ,7X 


IIS 

630 

640 

650 

660 

670 

680 


10.) 
FORMAT 
FOBS  AT 
FORMAT 
FORMAT 
FORMAT 
pc  an  AT 
posmat 

FORMAT 


7P10.2,/,7F1C.2,/,SF10.2) 

7X,3H0.5,7X,3H0.1,7x,3H8.0,7X,380.0,8X,2HO.,7X,3H30.,8X,2H 


<x]?L  2,2110.2) 


2H12) 

9X,1h1,2X,I3,4X, 1H1,4X,180,3 
F7. 1,4  FI  0.1 ,3F6. 1  ,4X,2H0. ,*X 
2  820) 

2H/*( 

(9X,1  HI  ,4X,1H1,4X  ,1H4,4X,1iI1,  3X.2H10.4X,  1H1. 4X,  UIO) 


X,2H0.,8X,2h0.,BX,2H0.) 

,2ao.) 


176 


£  **  4  *♦•*<%*******#*#*#*  ** ******  a*  m  *  *#  *« ***  ************  * **  ***  v *********  ** 
C  3 LOCK  ^34TA  ^  ,*„»*.,****,«,»,«,»,, 

BLOCS  DATA 

COMSOM  /LCC/  X  1,r  1,Z  1,7  1 ,  ITS, 1182 

C0N303  /3N1/  aiNX,aAXX,3IS.X  ,  a  AXY  ,  3IiI  XI  ,  SAXX 1 , 313X2 , 3 AXX2 
ccaaoa  /a w/  ieaue 

COaaOM  /P  A32  /  XGUN  (7)  ,YGU  N(7)  ,  ZCU  S  (7  )  ,XSAH,YSAa, ZSA3,G?  (7 } 

CC33C3  /?  AfiU/  AFP  SAX  ,  at  7  Ill,  HI  SAX,  POP3IN  ,:-A  ALT,  JHHXIi  ,2XXAX  ,  2  H  i-.SI ‘I  ,  J 
1RBWAX, 3TE ,ABTF 

CCaBON  /ASCI/  "«X  MO  0  0)  ,  XT  (1000)  ,*2(1  COO)  ,  H  U  ( 1  0  0  0 )  ,  *  V  (1  000)  ,  JV  (1000 
i) , «h  (i  joc)  ,  ap  <  icoo)  ,  «a(  i oJO)  ,  «c / 1 ooo )  ,  i  (i ooj) ,  xcr 
cCaaoa  /a  =£2/  xne*  ,£el1,  xieh?  ,x6lo,i  N-a  ,dely  ,  i ie.ip,  xold,znew,delz, 
iztshp, ZOLC 

coaaoa  /asc  3/  velcn  ,  vs  lot  ,vs  lcc,  ;;,aa£S,  ote3P,9old,  vas* ,  vtehp,  vole, 
iwnee,  xTzap/xcLL 

C0HBO3  / ASO 1 /  AAI.ASI.ACI 

CCHB03  /AED2/  VSX  ALL  ,  VS  A  X  ,7B  A X  1 ,  VX AX  2 ,  DEL ISE,  DSL T V,  DSLIAZ 
CCKMON  /  AB03  /  E  S  I  COT  ,TH  a  DOT  ,  P  KIDOI 

CC3M0.N  /  A E D4 /  PS  1HE*  , THEN’  En  ,  P HI322,  p SIO LO  , TH ZOLO  ,  PH  IOLO 

C03B0N  /AEE4/  TR  3»  X  .  Alia  AX  ,C  LS  AX  ,G  ZZ  ,  TO,  FHCSS L,  li L ,  CDO ,  C DK,  AR  E A,  OT  CH 

CCnaOM  /T J3/  XA8GX.XA6GY 

C  PLASH  CBI7EH 

DATA  IBAUL/1/ 

C  SAP  WISCOH  X  C003CINATES 

"  CAT A  3INX/100/ 

DATA  X  A  X  X/37  00/ 

c  ALiiaETEH  aiacoa  x  cccrdina rxs_ 

data  ax::xi/372S/ 

CATA  3AXX 1/3925/ 

c - 

c  pficapTiiiG  «i!itoa  x  coordinates 


CATA  iiZS  X  2/3  9  50/ 
DATA  3AXX2/40CC/ 


C  CC3BOH  I  COORDINATES  FOB  TH  2  IRRSF  SINOCWS 

data  arax/400/ 

DATA  3AXY/2300/ 

C  PEEDETEBHIHFD  W2AFCN  E3PLAC £3  EN I  FA3ABETES5 

C - 

DATA  XGON/14  100.  ,  1o2CC.  ,  1  36  00  1 3400  . ,  1  13  30.  ,  1  5o  00  .  ,  12300. / 

DATA  YG ON/90 J0.,d2G0.,720C.  ,3  000. ,97  00.  ,  1090  0., 75  00./ 

DATA  z GO  a/4  0. ,40. ,20. ,20. ,50.  ,3C.  ,20  ./ 


DATA  XGON/14  100.  ,  1&2CC.  ,  1  36  00  13400  . ,  1  13  00.  ,  1  5o  00  .  ,  12  300. / 

DATA  FG0N/9Q JQ., 6200., 720  C.  ,3000.  ,97  00.  ,  1 0 90 0. , 75 00 ./ 

data  z go  a/40. ,40., 20. ,20., so. ,  sc. ,20 ./ 

DATA  X3A3/120CC./,YSAa/6000./,2SAa/5  0./ 

DATA  GR/1000.  ,  lOCo..  1400.  ,14GE,,  2500.  ,2500.  ,2500./ 

C  TASGET  COOHDiaATES 

DATA  TABGX/140C0./,X AEG  7/7220./ 

c  ccavEBSioa  factors:  radians  ro  degrees 
C  HETSPS  TC  FEET  __ 

DATA  3TD/57. 29573/ 

DATA  A3TF/3. 23084/  __ 

C~G  SANITATION  AL  CO  a  ST ANT  ( 3/S  2) 

DATA  GEE/ 9.307/ 

C  5  I EOLATION  PABABETESS 

C  CABDINAL  C03PAS3  HEADINGS  (RADIANS) 

0AIA_AA2/1.57079o/,A31/J.  14  1 5 93/ , AC  1  /4 . 7 1  2 4/ 
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non  non  non  nnn  nnn  non  nno 


c  aAxiaua  thhust  of  tee  aieceaft  (dx3e:;sio3l*ss) 


DATA  THSAX/0.40/ 


C  HAXISUfl  AI3CSAFT  GEZ-IOAEING  (0 IHE >S IONL ESS ) 


DATA  ANHAX/6./ 


C  5  HO SSL  IS  THE  DEM  SITE  AT  ST  A  u  DA  80  SEA-LEVEL  CONDITIONS.  12  HAS 
C  DIMENSIONS  0 E  (N.S2/N4) 


CATA  SaOSSL/1. 225/ 


C  STANCAoD  SEA-LEVEL  TE3PE3AT08 


SEES  K) 


CATA  TO/233. 16/ 


C  TEKEEEATU8E  LAPSE  SATE  FC3  THE  T3  CEQSPHS H E  (DEG  X/3) 


DATA  0TDK/-O. 5E-3/ 


C  HAXIHUS  MING  LOADING  (N/B2) 


DATA  ML/4763 . / 


CErINEC  AS  A  PERCENTAGE  OF  TOTAL  MING  A3 EA 


DATA  A8EA/.JS/ 

C  MAXIMUM  COEFFICIENT  Of  LIFT 


CATA  CL.". AX/1./ 

C - 

C  COEFFICIENT  CF  DHAG  AT  Z ESO  ANGLE  OF  ATTACK 


DATA  CSC/. 015/ 


C  PBCFIIE  D8AG  COEF  t  ICIENT 


DATA  CDK/0. 1/ 


aisiaoa  altitude  ecs  tee  game  (ar 
DATA  HTSia/60./ 

HAXia^a  ALTITUDE  A E EEC ACHING  "  '* 

DATA  APP 3 AX/4 5  7./ 

BAXIH03  ALTITUDE  AETE8  EMTE3ING  POE-UP  RANGE  OF  6  S3. (M) 


DATA  HT3 AX/2  050. / 

aAXiaua  hange  (hetebs)  a  pop-up  aa i  as  cossencld 
DATA  PCPaiN/6000./ 

aisiaua  allcmah le  ece-uf  altitude  <t*)  "*  -------- 

DATA  BAAL T/ 1000./ 
acae  BEL2A3E  BA XI 3 UH  ALTITUDE  (3) 

DATA  B8BAX/200C./ 


BC3E  BELSASE  SINiaOM  ALTITUDE  (3) 

Di5i_aa!,P^lU0,/  — 

c  aixiaoa  boss  belease  fange  <sj_ 
DATA  aaHBAX/l 000./ 

C  SIMiaOS  30nB  RELEASE  HANGE  <S)_ 
DATA  388BIN/1 OC./ 
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< 


aAXiau.':  velocities  hefore  and  after  30.13  seliase,  is/s) 
DATA  VSAX 1/260. /,V«AX2/3To./ 

STALL  VELOCITY  ltf/S) 


DATA  7  ST  ALL/ 9  0./ 


INCEE3ENT  OP  VELOCITY  CF.ANGZ  (5  K NOT  ISC  CC NVEHTED  TO  .1/S) 
DATA  D2LCV/3 . / 


THE  FOLLOW  ING  AS l  TESECRAPY  PA&AaEIERS  PCS  IDS  INITIAL  CONDITIONS  C? 
T  EE  A  ISO'S  A  FT  .  LATHS  THIS  .ILL  32  EM25SJ  I L"  T  2  2  ACT  1 7  2L  T  • 


DATA  JX/Q./. A Y/6CC0. //AZ/2C0. / .WO/TO  3.  /  .NV/J. 
D  AT  A  V  H/  l.p<0d/j*t/0./,  <Ei  /0  .  /  #  AG  /  0.  /  ^  .  /  0  »  / 


/,ww/o./ 


ISCSE3HNT  OE  TiSE  CHANGE (SECONDS) 

DATA  DELIEE/1.Q3/ 

INCREMENT  OP  ALTITUCE  THING E  ( 50  FT  INC  CONVERTED  TO  METERS) 
DATA  DE1TAZ/15.24/ 


TEMECRABY  ERCGHAP.  INITIALIZATION 


DATA  XOLC/0./, YCLI/6000. /,ZGLT/230./ 
DATA  (JOLC/2U  J./.VCL3/3.  /,<  OLD/O.  / 

DATA  PS  ICLD/1 .  / ,  T F EOLD/ 0  .  /,  ?H ICL  J/0. / 
DATA  VELCC/200./ 

ESC 


I 


APPENDIX  H 


FLIGHTPATH  GENERATOR  WITHOUT  THE  GRAPHICS 

C  SUBROUTINE  3 IGCA  L  16MAR8U 

C  Til  IS  SET  UP  AS  A  TROD  3LE-SHOOTI  MG  CONVENIENCE. 

C  IT  IS  TEE  FLIGHTIATH  GENERATOR  POLLED  FROM  IBMPIP2. 

C  »E2;:  15  OSS,  SACS  SUBROUTINE  HAD  A  •  El  TE- TO-FI LE 

C  SIAI2H2NT  IN  IT  FOR  OSS iaV ATION  PURPOSES. 

C  CHANGES  AND  COMMENTS  ARE  CURRENT  THROUGH  16MAR8U. 

C  D«A»  *•  •* 

C  T  H IS  *  3  U  ERO  UT  IN  E  OPERATES  AT  A  LEVEL  3 SLOW  MAIN 

C  PROGRAM  AND  ACTS  AS  A  DRIVER  FOR  THE  SUBROUTINES 

C  LIST'D  3  IT  H  IN. 

C  SUEBOUTINc  3IGCAL 


COMMON  /  A  DC  1  /  »  X  ( 1 00  0)  ,  W  1  (1  00  C)  ,  a  Z  !  1  0CD)  ,  W 
1)  ,XH  (1  GuC)  ,  3?  ( ICES)  ,  NR  (  10 -Jo  I  ,  WG  : 1  JOC  1  ,  I  ( 1  0 
COMMON  /ABC2/  XNES, DELI, XTEHF. SOLD, INEW.DE 


1ZIEM?,ZCtD 

COMMON  /AEC3/  V ELCN , 7EL JT , V ELCC, N , UN E'W , UT 
1WNEW,WTEMF,WOIE 

COMMON  / A  ECU/  AG  1 , A H 1 , A  I  1 ,A J 1  ,  AJ 2 

COMMON  /A  ED2/  ASIA! t , VMA X .1 M A  X 1 , VMAX 2 , DEL 

COMMON  /  A  E E5 /  EH  C  ACC ,  AN  ,  M  CO  NT 

M-0 

ICT=2 

MCONT=0 

CALL  TSNFEM 

CALL  N  EViCLD 

CALL  MVELCS 

CALL  MVDCTS 

CALL  D  £L  V  £C 

CALL  IMP  F NT 

CALL  TMPV-L 

CALL  I NBXRM 

CALL  ANGLES 

CALL  ROTRAT 

CALL  ACT  SMI 

CALL  ACT  ? M2 

CALL  ACT  SMS 

CALL  ACRVEL 

CALL  ACAGC 

CALL  ACLMTS 

CALL  XCHNGE 

CALL  WAY  ENT 

CALL  PILE 

ICT=ICI* 1 

IE  (AflS  (UTEMP)  .  GT.  AES  (VTEMP)  .  AND.  DEL  I .  EO . 

IF  (A3  S  ( VTEMP)  .  GT  .  ADS  (UT  EM?)  .  AND.DELY.  EC- 

GC  TO  10 

CONTINUE 

BEIURS 

STOP 

END 


WU  ( 1000)  ,3 
3  j j  )  , 1. T 
ELY, YTSMP, 


EM?, BOLD, V 


V ( 1 000 
YCLD.Z 
NEW , VT 


)  ,  W*  (10C0 
NSW , DiLZ, 
SMP,VCLD, 


TEE, DELTV, DELTZ 


AG  1  GO  TO  20 
Anl|  GO  TO  20 


nnnr.n  nnnnnn 


saaacuTiNE  TaNFas 


T5ANSFCBH  TAKES  IEe  SEAL  7AL3S  VA3IAaI.ES  SUPPLIED 
EY  TEE  GRAPHICS  EUSaOUTIMES  AND  LOADS  THEN  INTO 
VARIABLES  SPECIFIC  TO  THIS  AIEC3AFT  TRAJECTORY 
GENESATINC  PACKAGE. 

S3E30UT I S E  TRNF3N 
CONNCN  /ICC/  31  .<1,21.71  ,  ITS, ITS2 

CCJIttOS  /AEC2/  XNE'«,DEL2,ETEaP,3CLD,rN£a,0ELr,rTZHP,  YOL J , Z MEW , DELZ, 
)  ZT  "’’’P  20LD 

CCSHOJ  /  AGC  3/  VELCN  ,  7ELO  T , 7 ELCC,  II ,  UN  2W ,  UT5MP  ,  HOLD ,  7 MEN  , 7T 3»  P ,  VOLD, 
1  ANEW,  WTEHP.WCLC 

ccnnon  /  a  £  is  /  fwiacc,a»,ncost 
xne«=:ci 

ESEW*Y 1 

ZNEW=Z1 

VELOS’VI 

BE133N 

EMC 


S  UEaOUTIN E  N EWOL  0 


NEACL2  GENERATES  LENGTH  VECTOR  CO KPON ENTS  BETWEEN 
TEE  CURRENT  WAYPOINT  {OLD)  AND  THE  JESIHEO  WAYPOINT 
CSE3  HAS  JUST  ENTERED  (NEW) 


SUBROUTINE  SSSCLD 

CC2HON  / A  EC2/  YN  E  W,  D  ELY  ,XTEN?,XCLD, 
12ISNP,  COLD 

CCNNC'i  / AECV /  AG  1  ,.Ui1,Al  1  ,AJ  1  ,AJ2 

coaao:i  /aeeb/  fwcacc,;.n,ncost 

AG1=XNEW-XOL3 
AH  1  =  YN  £ W-  YOL  J 
AI  1=Z:i  £W  -ZOL  0 

AJ 1=5Q  ST  (AG1«*2*AH1**2*AI1**2) 
AJ2=50HT (AGl**2+Ab1**2) 

3ETJJHN  . 

EMC 


l  NEW,  DELY,  YTE’MP,  YOLO 


NEW , DaLZ, 


SUcECOTINE  RVELOS 


THE 

(OLD) 

E  G  0  l  3  N  z. 
ZLGCIT Y 
CZIVEJ 
?.  CACHE C 


scaaooxiNE  bveice 

CCRHON  /  AEC4  /  AG  1  ,  A  H  1,  A I  1  , A  J  1  ,  A  J  2 

COBRON  /  AEC  J  /  (EEC a  ,  1 ELOT  ,7ELCC,  3 ,3  N  ES  ,  3T  EH? ,  'J  OLD ,  V  K  EH  ,  77  2*  ? ,  70  L  Z , 
1SNEN,AT£s?,.iOLI 
coaaos  /aee5/  jaeacc.an.bcont 
b*n 


IF  (N.  GT  .  0)  GC  TC  10 
UNEW=V  SLOW*  (AG  1/AJ1) 
VNE  ELGN* (AH1/AC1) 
WSEi=V  ELON*  j  A  1 1/  A  J 1  ) 
10  CONTINUE 
N*1 

BETUBN 

END 


I  ( 


C ***«***»»«* ♦*»*******•< 

C  S C3RO UII'.IE  RVDOTS 

C  M V COTS  (BA?  VELOCITY  001  CC SPOS23T3)  CCKPUTES  THE 

C  LINEAR  ACCELERATION  CC3 EON  ENTS 

C  III  .!  Ac  COORDINATES.  (Y  POINTS  ..’001.1) 

SUEHOUTINE  BY  C CTO 

COBaON  /A  DC  2/  ANEW ,  DEL*  ,  XT2  BE, XCLD.YNfcii.JELT,  IT  S3  P,YOLE,ZNEil#CElZf 
1 ZT  EBP , TOLL 

COBRON  /AEC3/  VELCN  ,  YELOT  ,7ELCC,  N,U!J  E*,  JT  EBP  ,  UOLD,  /  N  E  *  ,  V  T  E  B  P ,  /OLE, 
ISNEN.ATEBE.AOLC 

CORMOtl  /AECU/  »G1  .AHI.AII  ,AJ1,AJ2 
CCHMON  / A  EE  1 /  UCOT, /EOT , B  DOT 
COBHOS  /  A  EE5  /  PNC  ACC  ,AH  ,  BCO  NT 
ACC=  (VELON«*2-VELCO**2)  /(2*AJ1) 

UDOT-ACC*  (AGI/AC1) 

VCCT=ACC*  (AH1/AJ1) 

HDOT’ACC*  <AI  1/ AJ  1) 

RETURN 

ENC 


•  I 


•  « 


»  I 
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I 


i 


notion 


JCuSOUTXNZ  3  H  L  *  £•  '*»» 

CGflllON  / A£C2/  X!ifiSi,CSLX#Ii 

’cCSBO'^/AECJ/  V  ELCN  ,  72LOT  , VEI.CC,  N , ON  2W ,  0TS3?  ,UOLO ,  V  NE'A  , 7T3 M  E ,  7C ZO « 
1HNEN, ATEMP.AOLC  .  . 

C  0  B  SO  N  /A  ECN  /  AG1#AH1#AItfA*J1#Ao2 
COMMON  /  ABD2/  75'IAi.i .7aAX,7MAZ1,7MAX.s,; 

common  /aeev  ucct , v ter , • do 2 

COMMON  /AE25/  EWCACC.Aii,  MCONT 
DELX=,I  olc*0El.TEE+*3*upof*CELTEt»*2 


:M?,XCI.D,X  SEN  ,D2LI  ,*T2S?,ICLD,2S2a,:SI.2. 


;iL22i,  DSLl'V,  DELXAZ 


IF  (A3  SlCELXj  .G1.A3S  (Aii  1 
IF  [AES (EILZ)  .  GT. A8S  (A1 1 
SE1U3M 

me 


II 


-  =  AG  1 
DE  L  V  = H 1 
3ELZ=AI1 


IMEESI  (TS  MPCti  A  3  X  EOINT  )  GENE 

position  r:;  zpace  sazzo  upon 

»***»■■ .  ~  “ 

S0EBC3TXN  c  TSPSS? 

COMMON  /A EC 2/  AN E  t  ,0 ELX  ,  XT2 MP  , XCL0,  X  S £.  ,  Da 
1ZTEKP. ZOIC 

COMMON  /ABC  3/  VFZCN,  VELOT  ,72  J.CC,  N,U  N  EM  ,  3  IE 
18ti£«i,WT2ME,iCLE 

COMMON  /  AEC1*  /  AG  1  ,AH  1  ,A  1 1  ,A  J 1  .  AJ2 
COMMON  /  A E D2 /  VSTiii  ,  VM  A  X  ,7M  A  X  1 , /MAX  2,  CELT 
COMMON  /  A  E  25  /  F  «  C  ACC  ,  AN  ,  MCO  NT 
XTEMP=XOLE«-D£LX 
XTEMP=rOID*DcIX 
ZTE3P=ZOLE*DfcLZ 
IF  (03  LX.EO.  AG  1)  JT2t!P=XMEW 
IF  }uSlI.f<3.  A  fill  ITS  BP*  IN  EH 
TF  ID3LZ.E0.  A1 1)  ZT2K?=ZNEX 


,  XT2MP 
,  JOLD, 


,  (Olwr** 

7  N  S»  ,  7? 


SSl.CZLZ, 

2KP,7OL0, 


22, DEITV,,  SEITZ 


4 


•  4 


C*«  » ********  *********** ************ 4  ****** 

C  S  UEBOOTINE  TMPVEI 

C  TfiEVEL  ITS M PCR ARY  VELCC 

C  TEE  V E ICCIT Y  COMPONENTS 

C  PC  1  .NT  IK  SPACE  (MAP  COO 

C  ** • ********  *****************  ************* 

SOcSOUTISE  TMPVEI 

COMMON  /AEC2/  aNZijDSLI.XTSMF^CLE 
1ZTEMP.ZOLE 

COMMON  /  A  BC  3  /  VEl.CN  ,  VELOT  , 7 2LCC,  S ,0 N 
1WSEW,ATIMP,A0Lt 


********** ****** 


********** 


ITY  COMPONENTS) 
ASSOCIATED  bit 
SCI  NATES)  . 

*************** 


GEVER 
H  x  HE 


ATES 

TEMPORARY 


********** 


SEA  /  DECT  ,  1 1  IMP  /  Y  GL  Z,  Z N  IN  ,  EELZ, 


•  « 


EW , UTEMP, UOLD, V N EA , 7T 2MP , VOL E , 


COMMON  /  A  SC4  /  AG1  .AH1.AI1  ,AJ  1  ,AJA 
COMMON  /  A  E  32/  VST  ALL  ,  7M  A  X  ,7  M  A  k  1 ,  V  MAX 
COMMON  / A  ESI /  UDCT  .  V  EOT  ,  A  EOT 
COMMON  /  A  E E5  /  EW  C  ACC  ,  AN  ,  .ICON? 

UTEMP* UOLD* 3001*0 ELT EE 
VTEM?= VOLE* V  EOT ‘BELT  EE 
BTEMP* WOLE»WDOT*DELTEE 
IF  (ABS  (3TSM?)  .  G?  .  A3S  (U  N  EA)  .ANE.MCON 


2,DELI23,02LTV, OEI 


IF  (A3  S  (  VTSM  ? )  .  GT  .ABS  (7  NEW)  . ASC.MCON 
IF  (ASS  i’WTSHPl.GT.AES  (ANEW)  .ANE.MCON 
IF  (0SL2.E0.AG1)  UTEMP=UNEM 
IF  (DSLY-EQ. AH  1)  VT2XP=VNEA 
IF  (OELZ.EO.  A1 1)  ATEMP=ANEA 
IF  (dELX.NS.O.)  GC  TC  10 
0  EOT=0  . 


T.20.1)  UTSMP=US 
T . E  C •  1 )  VTEM?=75 
T.EC.1)  atlmp  =  a;. 


GO  TO  20 
CONTINUE 

IF  JOTEMP.EQ. ONE*)  U COT=  ( 3T S M E **2 -30 
CONTINUE 

I?  (DELY.NE.J.)  GC  TC  30 
7  CO'i-O  . 

GO  TO  uQ 
CONTINUE 

I?  (VTEMP.Sa.7SEA)  7E0:=  (VTEM£**2-V0 
CCNIIN  U  E 

IF  (DELZ.NE.3.)  GC  IC  50 
»COT=0. 

GO  TO  bO 
CONTINUE 

IF  (HTEHP.EO. KNEW)  SCOT* ( WTEMi**2-W0 
CONTINUE 

VELOT=  SaBT(GTEEP**2*  VTE;iP**2*iTS;iP«* 

3ETURN 

END 


L3**2)/(2*D£Li) 


LE*»I)  /  i  2*  UELY) 


LD**2)  /  (  2*  DELZ) 

2) 


c  **  * ***  #•*** ********** «***«*» ****  ********  «  ************** 

C  3G3H0UTINE  I NHTR S 

C  INflTEM  (INITIAL  SCTATIO NAL  TRAN SFO 3 M A 

C  MAP  COO  EDI  NATS  COMPONENTS  TO  A  SYSTEM 

C  DYNAMIC  1ST 3  (Y  POINTS  SOUTH  AND  Z  POT 

C**  **************** •***  **************  $  * ** * ***••***••*«** 

SUEHOUTIKE  IN 3TKM 

COMMON  /  A  EC 3  /  VELCN  ,  VELOT  ,V  ELCC ,  N  ,3  N  EA ,  UI  EMP.UOLD, 
1BNEU,ATfiSF,A0LE 
COMMON  / A3E1 /  CDOl.V EOT , BOOT 


:iON)  T 
USED  a 


NTS  DOW 

******* 


BANS  FOE  MS 
Y  FLIGHT 
N) 

********* 


VNEB ,VT EBP, VOLE, 


vwnuwii  /  au  u  \  /  w  ukj  i  .  *  uui  p  n  uo  a 

COMMON  /  A  E E5 /  E B  E  ACC  ,  AN  ,  MCO  NT 

COMMON  /AEF1/  U 1  ,  VI  ,  A1 ,  U 2 , 7 2  ,  A2 . U3,  V  3 ,  S  3 

CCMMON  / A EF2/  0El,7C1,AD1,UO2,v62,5D2,UD3,7D3,i 


U 1*UTE  HP 
V1*-7T  EMP 
B 1 =- BT2M  E 
UE1=ODOT 
VD1=-7D0T 
BC1=-BD0T 
aETOHN 
ENE 
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SUBROUTINE  ANGLES 

ANGLES  COMPUTES  IKE  ANGLE  CHANGE  INC PEN 
SI  XCVE2ENT  EOSWAFD  TO  THE  T  ENROB  ASX  ?C 
IS  TfcB  ESA  DING  CHANGE,  RErEBEMCED  10  I 
THENES  IS  THE  PITCH  CHANGE  REFERENCED 
HORIZONTAL  PLANE.  RHINE  3  13  THE  ROLL  I 

********«**c***«***£**************************** 

SUBROUTINE  ANGLES 

ccaaoN  /  a Eci/  x:i  2  a ,  cel*  ,xtemp  ,xcld,i  ne»  ,deli  ,  iTsaP.i 
IZTEaP.ZOLC 

COMMON  / AEC3/  VELCN, VELOT.VELCC, 3 ,UN EW, UTEHP, GOLD  ,75 
1  R  B  S  W ,  «  XE  ME  ,  *  C  L  E 

COMMON  / A EiC4 /  AG1,AHI,AH.AJ1,AJ2 
COMHC  i  /  A  EDI  /  AA1.AS1.AC1 

COMMON  / A  122/  VS I ALL ,7M  A  X  ,7  M  AX  1 ,  VMAX  2,  DELTEE ,DELTV, Z 
common  /abdh/  esi n e*  , the n ew ,? hires,  psic id,  th  sold, ph j 
ccaaoa  /aees/  escacc.an.mcont 
common  /aefu/  ds,cse,dsp? 

DS=SGtt'T  (lELX**2+L:LI*“2+0£LZ**2) 

IF  (DEL*. ME. 0 . )  GC  TC  10 

IF  (DSLX.  EQ.  0. . AN  C. C  ELI .  LI.  0  .  )  ?SINE«=AA1 
IF  (OS LX .  £Q.  D •  «  AND.  2 ELI.  GT.  0 .  )  PSXNS  B--AA  1 
GO  10  20 
0  CONTINUE 

P  SINE  A  =- A1AN  (CEL I/DE  IX) 

IF  (DELX.GT.  J..Atlt.LcLx.EC.O.)  ?5INE3=0. 

IF  (DELI.  LT.  J. -AND.  DELI.  LI.  0.  )  PS  IN  £  3=  A  cl  +  PS  IN  ES 
IF  {DELX.LT. O..AXC. CELT.2C. 0.)  ?SIN2S=A51 
IF  JO SLX  .LT.  G  .  .  AMD.  D ELI.  G  I.  0 .  )  PS  INE  »=  £ SIN EN  - Aol 
0  CCMT IN  U  E 

TH£NES«ASIN (DSLZ/CS) 

T BNBAI  =  ( ESIN  E 3-ES IOLC)  /  D  EI.72E 

If  (PSINEN.GI.  0.  )  PH  INE  •  =  AT  \  N  (AES  (13  N  RAI*V  EL  JT/9 . 7  ;  : 
IF  (PS  ISEW.LT.  J. )  PH  INE  <■  *  -AT  A  N  (A  3  3  (T  R  NR  AT*  VEL  J 1/9 . 7 1 
IF  (PSIIIE'S.SQ.  PSICL2)  PH  I ME3  =  E HIOLO 
RETURN 


RENTS  C 
OINT.  PS 
HE  X  A I 
TO  THE 
N  C  5  S  M  S ! 


ICLD.ZJ 
NE'S  ,  VTE 


**  *********  **************  **********  ******  ************ ************ ****** 

SUBROUTINE  BCTEA7 

BCTHAT  (EOT  ATI  0  N  1 1  RATES)  COMPUTES  THE  ANGLE  DOT 
COMPONENTS  IN  THE  INERTIAL  REFERENCE  SIS.  (THE  ONE 
« ITH  I  POINTING  SCUTH  AND  3  DO«N). 

***********  *****************  *********  ****************************  ****** 

SUBROUTINE  RQIHAT 

COBBON  / A  EC2/  XN£»,D2LX,XIEM?  ,  XCLD, I  NEW , DELI , I TE3? , I OLD ,Z N ES  ,  DELZ, 
IZTEMP.ZOLD 

COaaON  /AED2/  VST  ALL  ,  IN  A  X  ,  V  .3  A  X  1,  VNA  X2, DEL  TEE, DEL TV, DELTZ 
COaaON  /AED3/  EEICOT,THEDCT,EHIDOT 

COBNON  /  A  E  24  /  ESINcS.THEKES,  RHINE'S, ? SIO LD , TilEOLD , PH  IOLD 
COMMON  •'*='•=>  ear  trn  «  u 
PSIDOT— * 

THEDOT= 

PHI  DOT  =* 

BETU3N 
END 


'  **  A*  **  W  f  I  "  L  rov.  .an  I  HLU  (1  L 

(  PSIN  E«- PS  10  LD)/ DELTEE 
j  THEN  SVi-TH  ECI C)  /D  EITEE 
(EHIM  EW-P  KIOLC  /D ELTSE 


nnnnfi  nnnnnn 


****************** #***##**#*** *# *************************************** 

SUBROUTINE  ACT3J12 

ACT3B 2  30TATSS  TEE  AIP.C3AFT  ABOUT  THE  X2  (EIGHT  Vi 1 3 G) 
AXIS. 

**•*=***♦=*  ****** ******»*+***»  ****««*«  ********«««**«**#*«*********«**** 

SU830UTINE  ACT8N2 

CCBBON  /  AEB4/  ES  iSE«  ,TKZM  cH  ,  PEINEW,  PSIO 10  , TESOLO  ,  Pii  TOLD 

C0330K  /A E25/  Fi»CACC,AM,  hco;;t 

ccaaos  /aefi/  (n,7i,*i,02,v2,vi:,u3,73,«3 

COSSOS  /ABF 2/  EDI  ,701,201  ,UD2  ,  V  C2  ,*  D  2 ,  U  E  3  ,  V  03  ,  m03 

ANG=  T  HiU  I  <i 

U3-COS  (AEG)  •U2-3X.N  (AEG)  *W2 
7  3= V  2 

S  3  -  SI  N  (ANG)  *  (J2+CCS  (AEG)  *W2 
0C3=C0S  (ANG)  *(JE2-5iii  (AEG)  *W'02 
7 03  =  VO  2 

HC3=SIN  (ANG)  «UE2+C0S  (ANG)  *WD2 

RETURN 

EMC 


C** ********* ******************************  4****************************= 

C  S  UEHOOTINE  ACTRB3 

C  8CTA1E3  AI3C3AFT  ABOUT  THE  13  (NOSE)  AXIS 

C***************************************** ****************************** 


SUBROUTINE  ACTHBJ 

CCBBON  / A  ED4  /  ESISEil  ,THS  NEW  ,  PBI5IE*  ,  PSIOLO,  THEOLD,  ?H  IOLD 

coaaou  /hits/  eaiacc,an,.hcont 

COBBON  /ABF  1 /  0 1  ,  7 1 . • 1 , J 2 ,72 . M2 , U 3, 7 3 , 3 3 
COaaOM  /  A  £r  2/  U E 1 , 7 1 1, AD  )  ,U D 2  ,702 ,io  2, 00 3 ,  VD3  ,  SD3 
COBBON  /ABF3/  C  AC  ,  7  AC,  ’i  AC  ,0  DOT  AC  ,  /DO  I  AC  ,  i  COX  AC ,  P,  2,  3 
ANG=PHIN  EH 
U  AC  =  1)3 

V  AC=COS  (AMG)  *  V  3  +S  IN  (  ANG)  *H3 
8AC=-S IN  (ANG)  *V3+CCS  (ANG)  *83 
0  DOT AC=U  E  3 

VDOTAC  =CCS  (ANG)  * VD3+ SIN  (  A  NG)  *«C3 
HDOTAC  =- SIN  (ANG)  *703+0)3  (ANG)  *803 
6ETU3N 
END 


nnnnnnonnnn  nnnnnnnn  nrjnnnnno 


>***************** 

S  UBBCUTIN 2  ACRVEL 


«**•**»**«*  ******* 

SUBROUTINE  \E 
COUPON  /A 203/ 
COMMON  /ALD4/ 

common  /aeeS/ 
COMMON  / AE?J/ 
A  SGI  *THE  NE  <1 
ANG2=  P  HI  N  EW 

p=phiuoi-sin  ( 

C=COS  (  ANG2)  *T 
B»-SIN  (AfiG2)  « 
RETURN 
EMC 


***************************************************** 

ACRVEL  I AI 2C  RA  FT  BOTATICNAL  VELOCITIES)  COMPUTES  THE 
ROTATIONAL  VELOCITIES  IMPOSED  DM  THE 
AIRCRAFT,  IS  THE  ROTATIONAL  02  AIRCRAFT  COORDINATE 
SYSTEM.  (X  ALONG  THE  ROSE,  Y  OUT  THE  BIGaT  AIMS. 

Z  OUT  TEi  30TT0M  OF  THE  AiHCEAr T. ) 

**********  c************************^****  ************ 

3  V  ~  L 

’ EiicCT.THZOCT, PHID07 
PS  ISES  .THESIS  ,  ?  HINEW  ,  ?  SIC  LD  ,  TH  SOLO  ,  PH  ICLO 
FNE ACC, AS, COUNT 

U AC, VAC, SAC, U DOT AC, VDO IAC , VDOT AC , ? , Q , 3 

ANG1)*f STDOT 

fcEECT+CCS(AN31)  *SIM  (AMG2)  *5SIcOT 
t  HEDCT ♦COS  (  AMG  1)  *COS  (AN  G2)  *PSIDOT 


******************  **»• *•*•**•******••*****•**•••« 

S  OB  BOUTIN E  ACACC 

(AIRCRAFT  ACCELERATIONS )  PUTS  T 
A  CC  EL  1 3  ATI  ON  S  3  ESC  IT  IS  G  FROM  12 
SPACE  AND  THE  .ROTATIONAL  «CCEL2 
i SC  3  CANUTES  I EG.  »HA  T  APPEARS  3 

•**•*•••**••*•*•*•*••{*;•**** *«**I*»*«*2*I. ****** 

SC3H0UTINE  ACACC 

C  CHIOS’  /  A  602/  XNiW,  DELI,  XTES  ?  ,  iCLD, S  E*  ,  DELI 
1 ZTTMr , COLE 

COMMON  /AE 13/  AX , A Y , A2 

COMMON  /A  EES/  F  SiC  ACC  .  AN  ,  MCO NT 

COMMON  / A  EFJ  /  C AC, VAC,*  AC ,U  DOT AC , 7D0 IAC . SCOT 

AX*UaJTAC-VAC*S*«AC*C 

AY»VDOTAC*UAC*P-JAC*C- 

AZ*WDOIAC-UAC*Q*VAC*E 

A«-VAC*R 

B»WAC*0 

C*UAC*R 

0»-WAC*? 

Z»-UAC*Q 
F*VAC*  P 
HETUHN 
END 


OG  ETHER 
ANSL-TIC 
RATIONS 
ELON  IS 
ION  FOR 
******** 


r  S  EAR 
5UJH 
?  TNG 
!  S 

(CRAFT. 

********* 


** •  «•********•*****»•«»•*****  ************  **********  ******************  ** 

SUBBOUTINE  ACLMTS 

ACLMTS  (AIRCRAFT  LI3ITAIIC8S)  COMPARES  THE 
ACCELERATIONS  RESULTING  FROM  A  PROPOSED  MOVE  ALONG  A 
FLJGET-PATH  TB A J ECT03Y  TO  THE  PHYSICAL  LIMITATIONS  OF 
TEE  AIRCRAFT.  THIS  IS  ESSENTIALLY  THE  EKS  OF  THE 
EQUATIONS  OF  MOTION.  I?  THE  TRAJECTORY  ACCELERATIONS 
ARE  LARGER  THAN  ALL0SA3 LE  THEY  ARE  ADJUSTED  DOWNWARD 
IN  MAGNITUDE  UNTII  THE  SHS  AND  LHS  OF  THE  EQUATIONS 
CF  MCTICN  ARE  EQUATED. 

SUBBOUTINE  ACLMTS 
COMMON  /AES3/  AX,AY,AZ 

COMMON  /"A  E  E4  /  TBMAX  ,  ANS  AX  ,CLM  AX. GEE .  TO,  BH0S3L,  WL  ,COO  ,CDK,  AR SA ,  DTCH 
COMMON  /ABES/  FW C ACC , AN , 3C0 NT 
CALL  T  HBUST 

IP  (AN .LT.ANMAX.AND. FWDACC. LT. IHMAX)  CALL  BOOSTS 
T  If (AM.GT.ANHAX. JS.F* DACC. JT.  IHMAX)  CALL  3 EDUCR 

RETURN 
END 


188 


onr,m 


•  « 


C** *********  *****************  ****** 

SUBROUTINE  BCCST3 

ECC3T3  ISC  a  IAS Z3 
MAXIJUK  ALLCWABL 

***********  **********  *******  ****** 

SUBROUTINE  BOOSTS 
COSMOS  /  AEC2/  X N  E V* ,  C  ELX  , XTEMP 
1ZIEM?, ZOLE 

COSMOS  /  A  EC4  /  AG  1  ,  Adl.A  II  ,A  J  1 
COMMON  /AEH1  /  EZCI ,  7 GOT  ,  «  OCT 
COMMON  / A  EE3 /  AX,AT,AZ 
COMMON  /AEZ<*/  IHMAX -ANMAX ,CLM 
COMMON  /  A  E  E5  /  E  »  L  ACC  ,  AN  ,  SCO  NT 
MCONT=1 

10  CONTINUE 

1=0 

IE  (AG  1.  EC-  DEtX.OB.AG1.  cQ.O.  ) 
IF  (ABS  (AG1)  .LT.  AES  (AHl  )  .  AND. 
IF  (I.  NE.1)  GC  TO  20 
UD0T=1 .0  2*UD0T 
20  CONTINUE 

IF  (AHl.  EQ.0ELI.0a.AH1.  EQ.J.) 

IF  (Ad  S ( AH  1 )  .IT. AES  i  AG1  )  .AND. 
IF  jl.  3IE.2)  GC  TO  30 
VD0T=1 .0  2*VD0T 
30  CONTINUE 

if  (aii.  ec.oelz.je.au.  zq. j.) 

IF  (Aas  (All)  .LT.  AES  (AG1 )  .  AND. 
IF  (I.  No.  3)  GO  TO 
MDOT=1 . 0  2*»DOT 


************************ 


TBS  LI 
E  ESEFO 

******* 


HEA3  ACCELERATIONS  UNT3 
EMANCE  IS  aZACHED 

***•*••*•*******«*••**« 


,XCLD, Y NEM,JELY,YT2MP,YQLj,ZNZN , IELZ, 


AX, GEE, TO, 5HOS3L, ML,CDO,CEK,  AH E A, DT DH 


GO  TO 
AES (AG1 


)  .LT.  AdS  (All)  )  1=1 


GO  TO 
AES  (AH  1 


)  .LT.  ASS  (All)  )  1=3 


GO  TO 
AES  (All 


)  .LT.  AES  (Adi)  )  1=3 


CONTINUE 

IF  (AG  1.  EC.0ELX.3E.AG1.  IQ  . J  . ) 

IF  (ABS  (  AG  1 )  .ZC.  AES  J  All  )  .  AND. 

IE  (I.  Na.U)  GO  10  30 

UD0T=1 .0  2*0DOT 

.101  =  1  .  0  2**0  J I 

CONTINUE 

IF  (AH  1.  EC.  DZIX.  OS.  AH1.  SQ.J.  ) 

r*  ~  r  \  i  uli  su-i 


GO  TO 
AES  ( AG  1 


)  .LT.  AdS  (AH1)  )  I=<* 


IF  (AdS  (AG1)  .  EC.  AES  (»H1)  .  AND. 
IF  (I.NZ.S)  GO  10  60 
aC0T=1 .02«UDQT 


GC  TO 
AES (AG  1 


)  « *»  T  «  A  so  ( A  .  1 )  )  a  ~  3 


0  COT= 1 .  0 2*UDQ T 
VDCT= 1 .02*VOOT 
CONTINUE 

IF  (All. EC.DSLZ.OR.AI1. ZQ.O.) 

IF  (ABS(AHI)  .ZC-AES  (All)  .AND. 

IF  jl.  N E . 3)  GC  TO  70 

VDOT= 1 . 0  2  *  VD  0  T 

HCQT=1  .  0  2*'*DOT 

CONTINUE 

CALL  SMLCAL 

CALL  TUBUST 


GO  TO 
AES  (AH  1 


)  .LI.  ABS  (AG1)  )  1=0 


IF  (AH.GE.AMHAJt.Ofi.FMOACC.G3. 

GC  TO  10 

CONTINUE 

IF  (AN.  GT.  AN  MAX)  AN=  AHM  A  X 
IF  (FW  DACC.GT.  1HMAX)  FW  D  ACC  =  T  1 
BETUaN 
END 


IH3AX)  GC  TO  80 


•  • 


•  *J 


* 


•  •] 


non  no  u*  k>  -*  nonnnn 


****** ************ 

S  UBBCUTINE  BEEUCR 


•  «  **************** 

SCBROUTINE  S S 
CCEMON  /kid/ 
1HHEH.yTS!lE,*C 

ccaaos  /kit*/ 
coaaos  / A  ED2 / 
CCEMON  /AEEJ/ 
COHBON  /A££V 
CCSrtON  /  A  EES  / 

com eon  /lcc/ 
3CCMT= 1 

3  continue 

VELON='/ELCN-D 
A*SS?ALL*2.  *D 
If  (VELON.GE. 
ANG«ACOS ( AG  1  / 
AJ2=1.  1*AJ2 
AG  1  -CO  S  (AUG)  * 
AH1*SIN  (AtlG)  * 
VEL0N=V1 
3  CONTINUE 

N*G 

CALL  EVE1CS 
CALI  HVDC13 
CALI  3  MLCAL 
CALI  2H?.  L3T 
IF  ( AN  .  I  c. AN. 1 
GO  TO  10 
3  CONTINUE 

RETURN 
END 


SEDUCE  IS  CALI  F  E  C  E  ACL  ITS  AN  E  35 
VELOCITY  AND  U IT  IE AT ELI  POSITION 
ON  TEE  AI3CHAFT  SIT  HIS  LIE.  ITS. 

DECS 

V  ELCN  ,  VEIOT  , V SICC ,  N  ,'JN  EN.  0T2«?,!J 
L  D 

Aii  1  (AH  1 ,  A  i.  1  f .  >i  1  ,  J  ^ 

•  3  LALL  ,  .\1  A  X  ,7  MAX  1 ,  /  MAX 2,  I  ELI  EE,  i 
A  X  A  Y  « 2 

THE A  X  j  ANN  A  X  ,C  LE  A  X  ,  GEE  ,  TO ,  SaCSSI, 
f » L  ACC, AN , SCO  N'T 
XI  ,  Y1 ,21,7  1  ,  IT  a,  1132 


:  DUCES 

to  ;et 


t  h  s  i*  ■;  i 

"loads  ‘ 


UOLD.7NE 


D ELT7 ,  DE 


!E?,VCLC, 


,  XL, 200, JDK,  ARSA.DTDH 


ELIV 
E  IT  V 

A)  GC  TC  20 
A  22) 


AX.ANC. 5WDACC.LE.2HEAX)  Go  TO  30 


»**•****•******••*•**«« «•****  •****«»****• ***** 

SC380UIINE  SELC1L 

fSEAIL  CALL)  IS  A  SHALL  HR  VE 
USED  IN  THE  ITERATIVE  LCOES 

********* •*•*•••******•*••****••****** ******** 

SUBROUTINE  SMLCAI 
CALL  DEL  V  EC 
CALL  T3PENT 
CALL  TEPVEL 
CALL  INRTEE 
CALL  ANGLES 
CALL  50TKAT 
CALL  ACTRE1 
CALL  ACTFE2 
CALL  ACTEHJ 
CALL  AC37EL 
CALL  ACACC 
RETURN 
ENC 


ION  OP 
(AIHCS 

******* 


(BIG  2.\ 
A  El  LID 

******* 


LI)  AND 
ITATIOHS) 

********* 


* 


nnooon 


******************************** ****** *************************** 

SUBROUTINE  IH8US-.IfiBCST  i5  as2C  a j  (AIP.C3A71  i-ialTATIONS)  TO  C02PUT2 
THE  AVAILABLE  PCSWASD  A  CCEL  EB  AT  10  N  BASED  UPON  THBUST 
CRAG,  G-LOADING,  POSITION  IN  SPACE  AND  GBAV.TI. 

**•»•••«**« *****************************  «  *4*  ***************  ***  ********* 

COBHON^/ ABcI/ ^ 2N  E S  ,D ELX  ,X TE aP»TC LD,YNE5, DELI, YT ESP,  YOL  D,  ZN  E*  ,  CEL  S, 

1COaao5  A3C3/  VEiCN ,  VELOT  ,TELCC,  N,GN  £W,  UTET1F,  BOLD,  VNSW  ,  <'T  ESP ,  /GEE, 

COailON  T/AED*i  /  tSISEW.IH2NE<l/?HISEiJ,?SICLD,IHE0L0,?HI0ED 

COSSON  /ilH/  H5ax:ASaAX.=  L3**,GE2.TC,sa03Stf  it.CBO.CW,  ABEA.OTCH 

CCaSON  /  A  E  E3  /  EW  l  AC*  ,  AN  ,  .ICO  NT 

ANG=THEN EX 

THSQJ«AX/G£i 

AN=SQ2T <AY**2*AZ«*2) /G-- 

SIGSA=  (f ♦CTDH*ZTESP/TO) **4.257 

BH0ALT*5RCSSE*SIGKA 


CL=  (2.  *AN*«L)  /  (BHCALT*VEI.CT**i) 
D  £  AG-  A  N*  (  (CD0»CSB*CL**2)  /CL) 
P«DACC=SIN  (A:.G)  ♦THBCO  +  DBAG 


BETUBN 

END 


C  jOBBOUTIJ-  XCj.  a  £  TE£  2gOA7IOS£  3f  1CTICN  ABE  SATIS 
C  P SC EC3E D  LOCATION  (TEE?)  TEE  THE?  -OCA 

c  TEE  CURRENT  LOCATION  iC  LD)  . 

CO.NKON  T/AHC2/ fc  J.NEA  ,D2U  ,  XTSNE  .ACID,  Y  NEW  ,5  ELI  ,YT3MP, 
1Z7IXP, Z OLC 

COMMON  /A3CJ/  VcZCU, VSL07,VELCCf S,JN&V,U72X?,aOLD, V 

lyuc’j  i’liOLI 

COanON  /AE34/  FSINEW  .THE  SEW  ,  PHISSW,  PS IC ID, TH EOLD ,  PH 

CCBHON  / A  ESS/  A C  1  ,  A E  1 , A F  1  , A r 2 

YOLD=Y TE2F 

ICLC^YTENF 

Z0ID*21E“E 

UOLD=UTEHP 

VOLD=  V  TE  R  F 

SCLC=W  TE2F 

P  SIOLO*?  SINE  W 

THEQLD=T  HEN  SW 

PHICLD =  ?HINS  8 

V  ELGO*  V  ELCT 

BETUBN 

END 


FISD  AT 
TT ON  SEC 


YOLC,ZS 
N £W , VT  E 


lJ . C--2, 

bp,  -iolz. 
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NL 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BURLAU  OF  STANDARDS- 1963- A 


nfinn  finnnn 


SUBBOOHNS  WAXPNT 

TEE  SELEVANT  ?  AS  AHEIS33  FOB  THE  CU33EST  POINT  ASE 
ASSIGNEE. 

«•*****•*****»»*****»»**»»••***»***•*»**»  *•»••«*•***«  *«•«*»  •*•**••••*•• 

S03P.Q  JUNE  MAIENT 

coaaos  /aecv  mx(100C)  ,wy  (iqoC)  ,azn  QCO)  ,mumooO)  ,av(iooo)  ,mw  (iooo 

1)  ,  <H  ( 1  00G)  ,  HP  { 1  GOO)  ,  HH  (1000)  ,  MG  <  1000  )  ,T  (1003)  ,  ICT 
COr.aON  /AEC2/  XNEi.DELi  ,  XTZ.1P  ,XCLD,X  NEM  ,  DELI  ,  xtesp,  told,zn  em , delz, 
1 ZTE.NP, SOIL 

CONJON  /  A  BC  3  /  VSLCN  ,  VSLOT  ,VSLCC,N,JSEN,U?E2?,J0LD,VNEW(?TSa?,70LC, 
1WNZM,NTE3E.N0LC 

COaaON  / A  ED2  /  ISTALL.VNAX  .7 SA X 1 . 7KAX  2 , 2 ELT EE.  D ELT 7,  CELTAZ 

CCSflON  /  A  E  D4  /  £3  I  N  EM  ^THZ  t»  la  ,  ?  KINEM ,  PSIOLD  ,  IH&OLD  , ?n 10 LD 

coaaoil  /ABES/  F  *  C  ACC  ,  AN  ,  SCO  NT 

NX  (ICT)  =XCLD 

MX  (ICT)  =*XCLD 

MZ  IICT )  *ZCLD 

MO  (ICT) »  COLD 

MV  (ICT )  “  VCLD 

BH(IJT)  *kcld 

MH(ICT)  =*-PSIMEa 

HP  (ICT)  *T1!SNEM 

MB (ICT) a-PhINEH 

BG  (ICT)  »AN 

T  (ICT)  *r  (ICT-  1)  ♦CELTrS 

RETUB1I 

END 


SuHBCUTINE  FILE 


IKE  CUB  KENT  POINT  13  I  ME  EE  I  AT  TLX  SAVED. 


subkoutine  pile 


ccaaoN  / a ec i /  ax  ( iooo) ,  a x  iiooo  ,mzm  ccg)  ,  ioooi  , .  v ( i  jo 3 »  ,  mb  (iooo 

)  ,MH  (1  00 C)  ,MP  (100C)  ,  AS  (1000)  ,  MG  ( 1000  >  ,  I  (10oJ)  ,  ICT 

ccaaos  /AEC2/  XN  E  a , D  ELI , XTE  SP ,XCLD,I  NEB, DELI, XTE3P, XOLD, ZX SB , B2LZ, 


1 ZT  ESP , ZOLI 

coaaoN  /lcc/  xi,xi,:i,vi ,  ;rs,U52 


IF  (XCLi}.NE-:CNHtt.CH.fOLD.:i2.  YS2W.0d-20LD,«E.2:J£W)  GO  TO  10 


IT) ,aa«ic 
aETOH.7 
CONTINUE 
LT3*0 


MRITE  (11,20)  T  (ICT)  ,5X  (ICT)  ,  MX  (ICT)  ,B 
IT^MH^jlCT)  ,Mp  (ICT)  ,ap  (ICT) ,  MG  (ICT)  ,LIH 


MZ  (ICT)  , MU  (ICT)  ,MV(ICT)  ,  MM  (IC 


POB8AT  (11  (BIO. 4,  IX)  ,13) 
2ND 


f 


nonnn  r>nft  nnnn  non  nr>n  cinn  nno  nnn  nnn  nno  nnnnn 


nnnn  nnn  nnn  nnn  non  900  non  909  9n9  *}r.n  nnn  nnn  nnn  nnn  nnnn  <">oo  *?n<? 


DATA  AA1/1.57C7«t>/,A£1/.i.  14  1 55.:/ ,  AC  1 /4.  71 24/ 


PITCH  SCLL  AHt  TAM  PASAaETSSS 


DATA  AD1/.5236/, AE1/.0524/, AP  1/.6503 /,  AF2/2.  0944 / 
HAIiaoa  THBC1ST  Of  TEE  AIFCSAFT  ( DIS5NSIO  NLE S3) 

DATA  THHAI/O. 40/ 

HAXiaaa  AISC3AFT  GEE-LCAEI.VG  (0  IHSSSICNL  ESS) 


0  AT A  ASM  AX/6 • / 


3KCS5L  IS  THE  DSNSIII  AT  STANEASD  SEA-LEVEL  CONDITIONS.  IT 
DIKESSIONS  OF  (II-  S 2/34) 

CATA  3  HOSSL/1 . 225/ 

ST AN D ABD  SEA-LEVEL  TSHPE5ATUE  £  (LEG  SEES  K) 


CATA  TO/288. 16/ 

TEHEEBAT03E  LAPSE  FATE  rC3  THE  THCEOSPHE  33  (DEG  K/il) 
DATA  DT0E/-O. 5E-3/ 


HAXIflOH  WING  LOADING  (S/S2) 
DATA  2 L/ 4788 . / 


SPEED  EBAKE  AEEAJ  CEE1NEC  AS  A  PSBCENTAGE  OF  TOTAL  BING  Aa. 
DATA  AaEA/.OS/ 


no  non  or>n  non  non 


•  t 


DATA  N a/ 1.5703/, AP/0./, NK/0./  ,  .G/0./ ,  I/O.  / 

ISCBESENT  0?  VELOCITY  CHANGE  {5  SNCT  INC  CONVERTED  TO  S/S) 
DATA  DELIV/3. / 

ISCSESEST  OF  TINE  CHANGE (SECONDS) 

DATA  DELTEE/1 . 00/ 

INCBENENT  OF  ALTITUDE  CHANGE ( SO  FT  INC  CONVERTED  TO  SET ERE) 
DATi  DELTAZ/ 15.24/ 


TEDPCBABT  FRCGBAS  INITIALIZATION 
last  lata  lice  siaulacas  inoat  irca  tha 
the  ibapip  sutroutin es  xypt  ar.d  zi;:. 


graphics  ouffer  through 


DATA  XOL£/0./,TOLE/6000. /.ZOL E/240./ 
DATA  OOLD/20J./,VCLD/0./, «OLD/0./ 

DATA  PSICLD/0. / , IiEOLD/0 . /, PHIOLD/0.  / 
DATA  VELCC/200 ./ 

DATA  X  1/6000. /,V 
END 


,  Y1/8CC0. /,Z1/3CC./,V1 / >6Q./ 


J 


% 
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•  t 


•  « 
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